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PREFACE 


This report summarizes the efforts and results of a study to 
establish requirements for a flight programming language for future 
onboard computer applications. This study was performed by M&S 
Computing under contract NAS8-26990 from the Marshall Space Flight 
Center of NASA. The technical monitor was Mr. Richard Jenke, 
S&E-CSE-LI. 

Several government- sponsored study and development efforts 
have been directed toward design and implementation of high level 
programming languages suitable for future aerospace applications. 

As a result, several different languages were available as potential 
candidates for future NASA flight programming efforts. The study 
centered around an evaluation of the four most pertinent existing aero- 
space languages. Evaluation criteria were established and selected 
kernels from the current Saturn V and Skylab Flight Programs were 
used as benchmark problems for sample coding. An independent re- 
view of the language specifications incorporated anticipated future pro- 
gramming requirements into the evaluation. A set of detailed language 
requirements was synthesized from these activities. 

This report is the final report of the study and is provided in 
three volumes. This third volume contains the report appendices, which 
describe the benchmark problems coded and provide listings of the bench- 
mark coding. 

Distribution of this report is provided in the interest of informa- 
tion exchange and should not be construed as endorsement by NASA of 
the material presented. Responsibility for the contents resides with 
the organization that prepared it. 


Participating personnel were: 

T. T. Schansman 
R. E. Thurber 
L. C. Keller 
W. M. Rogers 


Approved by: 
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APPENDIX A 


FLIGHT PROGRAM KERNEL DESCRIPTIONS 


This appendix contains flowcharts and narrative descriptions 
of the flight program kernels which were coded. The descriptions 
also discuss certain assumptions made during coding of the kernels 
and the unique language requirements imposed by each kernel. The 
actual coding of the kernels is found in Appendix B. 


Each kernel description is a separate paragraph of this 
appendix, and a kernel flowchart is included as a figure at the end 
of the paragraph. Kernel names and associated paragraph and flow- 
chart figure numbers are listed below: 


Paragraph 

Kernel Name 

Flowchart Figure 

A. 1 

Initialization 

A- 1 (a-h) 

A. 2 

Interrupt Processor 

A-2 (a-d) 

A. 3 

Non-Interrupt Sequencer 

A-3 

A. 4 

Periodic Processor 

A-4 

A. 5 

Events Processor 

A-5 

A. 6 

Iterative Guidance Mode 

A-6 (a-d) 

A. 7 

Digital Command System 

A-7 (a-c) 

A. 8 

Accelerometer Processing 

A-8 (a-d) 

A. 9 

Minor Loop 

A-9 (a-d) 

A. 10 

Switch Selector Processor 

A- 10 (a-n) 

A. 11 

ATM Task Keying 

A- 1 1 

Separate pages of multiple-page flowcharts 

are designated by lowe 

case letters appended to the figure numbers 

. These are indicated 


above c 


As a documentation aid, paragraph A. 1Z contains glossaries 
of the names used in the program listings of Appendix B. The glos- 
saries include brief explanations of each name. 
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Special flowchart symbology has been used to identify and 
cross-reference program kernels and the various types of partition- 
ing within kernels. The following depicts and explains this symbology. 
The "Entry Point" column shows the symbol used for entry into each 
type of program block, and the corresponding "Calling Symbol" indi- 
cates how that type of program block is called from some other flow- 
chart. The label "A-xx" references the flowchart where the "called" 
program block is described. If there is no label, the program block 
was not coded and no flowchart is provided. 


Entry Point 


Ext. Entry 
NAME 


Calling Symbol 


Type of Program Block 



External entry point to 
a program kernel. Called 
from some other kernel. 




Internal entry point to 
a subprogram within a 
kernel. Called only from 
within the kernel. 



NAME 


A-xx 


Indicates a program block 
which is coded in-line on 
the coding sheets but is 
shown on a separate flow- 
chart solely for clarity of 
documentation. It is not 
a separate subprogram. 


( Entry 

NAME J (None) 

Interrupt y 


Entry to logic which is 
executed on occurence of 
the interrupt NAME. 
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Flowchart symbols internal to a program block have con- 
ventional interpretations as follows: 


Process 



Decision 



Input/ Output 



On-Page Connector 


Return 



Return to calling 
program af point of 
call 


The term "Note x n on a flowchart identifies a note at the end of the 
kernel descriptions. 
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Ao 1 Initialization 


A. 1. 1 Description of Operation 

A certain amount of initialization must be performed for any 
type of computing system. For a flight program, initialization in- 
volves setting up both program data storage areas and hardware 
registers. For example, data variables for an integration scheme 
must be assigned initial values and program switches must be setup 
to properly control program execution. Certain hardware registers 
such as accelerometers and the real time clock must be read to obtain 
initial values while others such as program controlled timers must 
be loaded with an initial value. 

While it is true that program data storage areas could be 
initialized at program generation time, it is usually desirable to 
perform the initialization in real time under program control to 
eliminate the need for reloading the program each time it is to be 
restarted. In addition, a certain amount of reinitialization must be 
performed dynamically as the transition is made from one mission 
phase to another. 

Two entry points exist for the Initialization kernel. The first 
is used when the program is entered from Prepare-to-Launch and 
performs overall system initialization. The second is used at the end 
of each mission phase to perform the initialization for the next phase. 

A. 1.2 Unique Language Characteristics Required 

The manner in which initialization is performed depends 
greatly upon the organization of the data base. Data which is defined 
as "local" and is contained within an application module would require 
an initialization pass to be made through the module unless special 
techniques were provided by the language to enable such data to be 
externally referenced by a centralized initialization program. A 
separate initialization pass through each module forces an undesirable 
decentralization of the function, so the best choice within the capa- 
bilities of the selected languages is to put all data which must be initial- 
ized into a common data pool (Compool), so it can be accessed by the 
Initialization module. However, since almost all of the Saturn flight 
program data gets initialized, this design would leave very little data 
local to the modules and would reduce the opportunities to describe 
local and global data in the languages. Therefore, some of this data 
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remains local to the module and the details of the application module 
datg, initialization were not coded Q This decision was influenced by 
the fact that the detailed coding is primarily restricted to a set of 
assignment statements, and data item assignment capabilities in the 
languages are well exercised in other kernels. 

A. 1, 3 Flowchart Notes 

Note 1 

For HAL and CLASP the phase control logic beginning 
at GP002 had to be made a separate program module 
since it was common to both EGPO and MPAQO. This 
was necessitated by language restrictions which limit 
a program module to a single entry point. 
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initialization 



Figure A- la 




INITIALIZATION 

(continued) 




Figure A- lb 
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A. 2 


Interrupt Processor 


A. 2. 1 Description of Operation 

In most present-day computing systems and, in all likelihood, 
those of the future, hardware interrupts are used to signal both the 
occurrence of external events and/or the expiration of a program- 
specified time period. Direct handling of interrupts is performed 
by a task called the Interrupt Processor which is usually a part of 
an operating system. The Interrupt Processor determines the cause 
of the interrupt and makes provision for initiating the task associated 
with the interrupt. In a system where tasks are invoked according 
to priority, the task to be executed in response to the interrupt may 
or may not be executed before control is returned to the interrupted 
task, depending on relative priority of the two tasks. In non-priority 
systems, the interrupt task is executed before control is returned to 
the interrupted task. 

The Saturn Flight Program has provision for five effective 
levels of priority. Listed in order of priority they are: 


Level 4 
Level 3 
Level 2 
Level 1 
Level 0 


- Computer memory failure (TLC) 

- Timer 1 

- External interrupts 

- Timer 2 

- Background (non -interrupt level) 


The two timers are program loadable and are used internally for 
scheduling of time dependent tasks. 

Included in the Interrupt Processor kernel are the Timer 
Scheduler subroutines to illustrate capabilities for scheduling pro- 
gram controllable interrupts. Timer 1 Scheduler is dedicated to the 
Minor Loop and Switch Selector Tasks and schedules whichever is 
due next by loading the time-to-go into Timer 1 Q The Timer 2 Sched- 
uler is assigned all remaining tasks which must be activated via a 
time -dependent interrupt All Timer 2 tasks can be enabled or dis- 
abled under program control, and, when enabled, must have an activa 
tion time specified. The Timer 2 Scheduler selects the enabled tasks 
next due for execution and loads Timer 2 with the required time-to-go 
Since Timer 2 can hold only a maximum of four seconds, the Timer 2 
Scheduler schedules itself if no other task is due within the next four 
seconds. 
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Also included in the kernel is the system time update sub- 
routine which maintains mission elapsed time by accumulating read- 
ings from a hardware real time clock. 

A. 2. 2 Unique Language Characteristics Required 

The Interrupt Processor requires facilities for responding 
to hardware interrupts and for controlling (inhibiting /enabling) them. 
Part of this control includes knowing which interrupts have been in- 
hibited by other modules and, therefore, should not be enabled by 
this module. Since this capability was not readily available, com- 
ments were appended to the logic to indicate that only "previously 
enabled interrupts" are being enabled. 

Interrupt control capabilities are often considered privileged 
functions which should be relegated to the operating system. In the 
Saturn Flight Program, however, application programs occasionally 
require direct interface with external hardware. For protection from 
other activities, they need control of interrupts, making it desirable 
to be able to perform such control in a high-level language. Interrupt 
control requirements are also demonstrated by several other kernels. 
Accelerometer Processing (Paragraph A. 8. 1) is a good example. 

The Interrupt Processor also requires the ability to select 
the proper task (subprogram) for execution in response to a given 
interrupt since the task assignment varies in real time for the timer 
interrupts. Timing efficiency is highly important for selection and 
transfer of control. 

A. 2. 3 Assumptions Made During Coding 

It was assumed that certain functions were performed auto- 
matically by compiler-generated code or by the system under which 
the object programs execute. In particular, the saving and restoring 
of program status for the interrupted task as well as resetting the 
hardware interrupt indication were assumed to be automatic. 

Symbolic names were assumed for each of the hardware inter- 
rupts of the Saturn Launch Vehicle Digital Computer, These names 
were then used in any kernel where direct reference was made to 
interrupts. Paragraph A. 12 contains a glossary of these names. 
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A. 2. 4 Flowchart Notes 


Note 1 

The program entry point EGP1 is utilized to activate 
the interrupt handling routines for SPL and CLASP. 
The statements within it are not executed during the 
activation process but are merely armed (readied) 
for execution in response to the associated interrupts. 
For HAL the entry is used to schedule the interrupt 
handling tasks. 

Note 2 


The Timer 1 interrupt handler for CLASP and HAL 
does not determine which of the Switch Selector 
modules is to receive control. Since these languages 
restrict a program module to a single entry point, 
control is passed to a common entry point of the 
switch Selector Processor which then internally decides 
which function is to be performed. 


- 10 - 



INTERRUPT PROCESSOR 
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Figure A- 2a 
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INTERRUPT PROCESSOR 
(continued) 
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Figure A-2b 
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INTERRUPT PROCESSOR 
(continued) 
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Figure A-2c 
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INTERRUPT PROCESSOR 
(continued) 
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A. 3 


Non-Interrupt Sequencer 


A. 3. 1 Description of Operation 

The bulk of the Saturn Flight Program computations are per- 
formed on a non-interrupt basis. That is, the basic mode of execu- 
tion consists of cycling a series of computational tasks on the lowest 
system priority level (lower than all of the interrupt levels). This 
is performed by the Non-Interrupt Sequencer which is a part of the 
operating system. Actually there are two Non-Interrupt Sequencers, 
one for the powered phases of a mission and one for the coast phases. 
Two sequencers are used because the computations performed differ 
considerably between the two phase types and require different groups 
of application tasks. 

Tasks to be executed by the Non-Interrupt Sequencer have 
associated status indicators which can be used to enable or disable 
eaqh individual task 0 During system initialization for a given mis- 
sion phase, the status indicators for the tasks to be cycled during 
that phase are set to a predefined state. After initialization is com- 
pleted, control is transferred to the appropriate sequencer. 

The Non-Interrupt Sequencer for a given phase examines the 
status indicators assigned to it in the order in which the associated 
tasks are to be executed. If an indicator is enabled, the task is in^ 
voked. Otherwise the next indicator in the sequence is tested. When 
control is returned from an enabled application task, the sequencer 
calls the Periodic Processor (paragraph A. 4) before stepping to the 
next indicator. After all indicators have been tested, the Non-Inter- 
rupt Sequencer returns to the first indicator in the group and repeats 
the cycle continuously until the end of the phase. 

The sfatus indicators are set as required by application tasks 
in response to the occurrence of external events (interrupts or dis- 
cretes),, on the basis of elapsed time, or as a result of internally 
programmed decisions. In this manner, the basic sequence of com- 
putations for a given mission phase can be modified as required. 

A. 3. 2 Unique Language Characteristics Required 

The Non-Interrupt Sequencer existed in the Saturn Flight Pro- 
gram as executable tables consisting of modifiable instructions which 
were used to invoke enabled application tasks and to bypass disabled 
tasks. Rather than using status indicators to enable/disable, the 
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instructions in the sequencer control tables were simply modified as 
required. 


Since programming in a higher level language makes it im- 
practical, if not impossible, to "execute" a table or to modify in- 
structions, the sample coding of the Non-Interrupt Sequencer was 
implemented through testing of status indicators as described in the 
preceding paragraph (A. 3. 1). 

A. 3„ 3 Flowchart Notes 

Note 1 


The Non-Interrupt Sequencer flowchart is general in 
the sense that it applies to any mission phase. Actually 
the kernel, as coded, contains two separate programs 
for the boost and coast mission phases. 
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non-interrupt sequencer 



Eigure A- 3 
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A. 4 Periodic Processor 


A. 4. 1 Description of Operation 

Certain tasks in the Saturn Flight Program must be executed 
repetitively at a fixed frequency but require neither stringent timing 
accuracy nor synchronization with other tasks. An example is a task 
which compresses data as a function of time. The scheduling of 
such tasks is performed by the Periodic Processor as a function of 
the operating system. 

The Periodic Processor is invoked by the Non-Interrupt 
Sequencer following the execution of each enabled application task. 
Consequently, the timing accuracy with which it is capable of sched- 
uling tasks is no better than the execution time required by the long- 
est Non-Interrupt Sequencer subtask. Since this time resolution is 
relatively low, tasks with execution frequencies exceeding five times 
per second or with stringent timing accuracy requirements should be 
scheduled by the Interrupt Processor, through the Timer 1 and Timer 
2 schedulers. 

The Periodic Processor utilizes control tables containing 
timing information for each periodic application task and status in- 
dicators similar to those of the Non-Interrupt Sequencer (paragraph 
A. 3). The Periodic Processor first examines the status indicator 
for an entry and then, if the task is enabled, it compares the task 
execution interval with the time elapsed since its last execution. If 
the task is enabled and is due to execute, it is invoked by the Periodic 
Processor. When the task completes execution and returns control, 
or when the task for a given entry is not invoked, the Periodic Pro- 
cessor continues on to the next table entry. Upon reaching the end 
of the table, control is returned to the Non-Interrupt Sequencer. 

A. 4. 2 Unique Language Characteristics Required 

The Periodic Processor requires the capability to access 
data from control tables. 
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PERIODIC PROCESSOR 
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A. 5 


Events Processor 


A. 5. 1 Description of Operation 

Non- repetitive tasks to be executed at a given time are sched- 
uled for execution by the Events Processor in coordination with the 
Interrupt Processor. The Events Processor utilizes a predefined 
table of task identifiers with associated execution times. An example 
of such a task is one which sets accelerometer reasonableness test 
constants at a given time during the mission. 

The Events Processor selects one entry at a time from the 
table and schedules the entries in the sequence in which they exist 
in the table. The execution time for a given table entry is used by 
the Events Processor to reschedule itself via the low priority timer 
of the Interrupt Processor. Then when it is reactivated at the speci- 
fied time, it executes the associated task and selects the next entry 
from the table. When it reaches the end of a table, it disables itself 
and remains dormant until it is re-enabled at a later time. 

Two special entry points are required in addition to the normal 
entry from the Interrupt Processor. The first is used at the start 
of each mission time base (time reference frame) to initialize pointers 
to the beginning of the corresponding Event Table. The second entry 
is utilized to enable and reschedule the Events Processor as required 
following periods when it has been disabled. 

A. 5.2 Unique Language Characteristics Required 

The Events Processor is responsible for invoking a relatively 
large group of tasks (one at a time) using the identifiers obtained 
from the Events Processor Table. Language capabilities permitting 
a call to one of several tasks depending on the value of the identifier 
would significantly improve efficiency. Lacking such capabilities the 
programmer is forced to code a call for each task and then use the 
identifier as an index for a "computed GOTO" in order to pass con- 
trol to the tasks o 

As implied in the preceding discussions, the Events Processor 
also requires means for accessing data tables. 
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A. 5. 3 Flowchart Notes 


Note 1 


Since CLASP and HAL do not permit multiple entry- 
points for a module, the MEP05 module must call the 
MEP10 module for these languages rather than trans- 
fer control to it as shown in the flowchart. 
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EVENTS PROCESSOR 



Figure At5 
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A. 6 Iterative Guidance Mode 


A. 6. 1 Description of Operation 

Iterative Guidance Mode (IGM) is a path-adaptive guidance 
program which steers along a nearly optimum trajectory toward a 
predefined target. It is path-adaptive in the sense that it is designed 
to adjust to perturbations to nominal vehicle performance. For 
example, if one of the upper stage engines fails to develop full thrust, 
IGM will adapt the steering computations to still achieve terminal 
position and velocity with sufficient accuracy. The steering program 
is based on the calculus of variations and is derived from a simpli- 
fied set of differential equations of motion. It is designed for powered 
flight in a vacuum with multiple distinct thrust levels and short coast- 
ing periods. 

IGM is executed once each iteration of the flight program back- 
ground loop (Non-Interrupt Sequencer, paragraph A. 3) during the 
periods when it is active. It performs two basic functions: 

o Guidance computations 

o Phasing 

Guidance computations generate vehicle steering commands 
(desired attitude angles) using navigation data, vehicle performance 
data, time, and desired terminal conditions. Calculations are per- 
formed in the target plane and injection coordinate systems and then 
rotated into the plumbline coordinate system for attitude control. 

Phasing evaluates vehicle performance data and estimates the 
times to go until the expected thrust level changes occur. For the 
Saturn V vehicle and missions, there are two distinct thrust level 
changes for the translunar injection boost period. 

Due to the large size of IGM, it is neither informative nor 
practical to code all of it in each of the languages. Therefore, only 
the portion containing the guidance computations is coded. The opera- 
tions performed by the phasing segment are similar to those contained 
in other kernels so coding them would be redundant. 

A. 6. 2 Unique Language Characteristics Required 

The IGM kernel contains the majority of the numerical com- 
putations performed by the selected kernels. In addition to the common 
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mathematical expressions including built-in functions (LOG, SQRT, 
SIN, ATAN, etc. ), it also demonstrates vector and matrix opera- 
tions. It requires capabilities for coding vector expressions and 
for performing such functions as dot product and vector rotation. 

A. 6. 3 Flowchart Notes 

Note 1 


The dashed connector from the entry point to the first 
block indicates the omission of the phasing portion of 
IGM which was not coded. 



ITERATIVE GUIDANCE MODE 




Figure A-6a 
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ITERATIVE GUIDANCE MODE 
(continued) 



Figure A -6b 
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ITERATIVE GUIDANCE MODE 
(tontinued) 



Figure A- 6 c 
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ITERATIVE GUIDANCE MODE 
(continued) 



Figure A-6d 



A. 7 Digital Command System (DCS) 

A. 7. 1 Description of Operation 

The Digital Command System provides communication facili- 
ties for receiving commands and data transmitted from ground sta- 
tions. Capabilities exist for controlling flight program timing, 
navigation, guidance, targeting, and sequencing functions from the 
ground and for requesting specific program data to be telemetered 
to the ground. 

Each DCS function, as received by the DCS software task, 
consists of a mode command to identify the function, followed by a 
variable number of data commands depending on the requirements of 
each function 0 The DCS task is initiated by the Interrupt Processor 
in response to the hardware indication that input data has been re- 
ceived. When a mode command is received it is tested for validity 
and legality and then analyzed to determine whether or not data words 
are required to perform the associated function. If data is required, 
the DCS task returns control to the operating system and is reinitiated 
as each data command is received. Each data word is also tested for 
validity and legality as it is received. When all data for a given func- 
tion has been received, or if a function does not require data, the 
appropriate module is activated to process the function. Upon the 
detection of errors in the DCS inputs, error messages are formulated 
and transmitted back to the ground and the function is not activated. 

The coded kernel does not include the various application mod- 
ules which are invoked to perform the requested functions. Only the 
central, coordinating portion of the overall DCS is demonstrated. 

The format of DCS input data is shown in Table A-l along with 
a list of functions in Table A-2 and error codes in Table A-3. 

A. 7.2 Unique Language Characteristics Required 

The Digital Command System has requirements to perform 
real time I/O. It reads the DCS Input Register to obtain the incom- 
ing data and the Discrete Input Register to examine the bit which 
stipulates whether the DCS input data is a mode command or a data 
word for a previous mode command. It also writes to the Discrete 
Output Register to issue the command reset pulse for the Command 
Receiver. 
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DCS INPUT FORMAT 


D 

D 

D 

D 

D 

D 

S 

C 

C 

C 

C 

c 

c 

C 

S 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


LVDC 

Bit Position Significance 


S - 5 
6 

7 -13 
14 -25 


DCS mode or data command 
Sequence bit 
Complement of bits S-6 
Unused 


Table A-l 




DCS FUNCTIONS 


Mode 

Comm. 

Status 

Code 

No. Data 
Words 

Function 

05 

05 

0 

Maneuver inhibit 

10 

10 

1 

Time base update 

11 

11 

35 

Navigation update 

12 

12 

2 

Generalized switch selector 

13 

13 

2 

Sector dump 

14 

14 

3 

Telemeter single memory location 

17 

17 

0 

Time base 8 enable 

20 

20 

0 

Terminate 

22 

22 

1 

Maneuver update 

25 

25 

0 

Execute alternate sequence 6D 

31 

31 

35 

Target update 

33 

33 

0 

Execute communication maneuver 

34 

34 

0 

Execute evasive maneuver 

45 

45 

0 

Inhibit coolant control valve 

52 

52 

6 

S-IVB/IU lunar impact 

53 

77 

0 

Switch CCS antenna system to omni 

54 

77 

0 

Switch CCS antenna system to low gain 

55 

77 

0 

Switch CCS antenna system to high gain 

60 

60 

.0 

Transposition, docking, and extrac- 
tion enable 


Note: The Mode Command comes from bits S-5 of the input command. 

The Status Code is the telemetered status word. Both are 
represented in octal. 

Table A- 2 
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DCS ERROR CODES 


Error Code 
(Octal) 


Description 


Orbital Mode /Data bit is invalid; data command was 
received when a mode command was expected. 

True complement test failed for mode command; 
information bits 7-13 are not the complement of 
bits S-6. 

Mode command invalid; the mode command received 
is not defined for this mission. 

Orbital Mode /Data bit is invalid; mode command 
was received when expecting a data command. 

Mode command sequence bit incorrect; the sequence 
bit received was 1 instead of 0. 


Unable to issue generalized switch selector com- 
mand function at this time; the last requested 
generalized switch selector command function has 
not been issued. 

True complement test failed for data command; in- 
formation bits 7-13 are not the complement of bits S-6. 

The time of implementation of a navigation update or 
target update command is less than 10 seconds in the 
future. 

Data command sequence bit incorrect; the sequence 
bit must begin with 1 and alternate from 1 to 0 in 
each sequential data command of a set. 

A DCS program is in progress at this time; however, 
no more data is required; only a terminate mode 
command can be processed at this time. 

The mode command received is defined for this mis- 
sion but is not acceptable in the present time frame. 






The kernel also requires capabilities for unpacking the input 
data and performing validity and legality tests on the data. When an 
error is detected, the data must be formatted for an error message. 
Table accessing facilities are also required since information con- 
cerning each mode command is stored in tables. The information 
includes: 

o Number of data words required 

o Command activity status (enabled/disabled) 

o Status code (for telemetry) 

Since a variety of functions must be invoked by DCS, a 
variable call facility as discussed in paragraph A. 5. 2 would be use- 
ful. 


A. 7. 3 Assumptions Made During Coding 

The DCS kernel was not coded as it exists in the Saturn 
Flight Program, It was reorganized to simplify program logic while 
retaining all of the necessary functions. Reorganization primarily 
involved the centralization of certain functions within the DCS kernel 
which, in the original flight program, were performed in the various 
DCS application sub-task modules. In particular, each application 
module previously was required to determine whether or not it was 
active, to issue status telemetry, and to make provision for obtain- 
ing any needed input data. In the coding of the DCS kernel these 
functions were performed in the DCS task itself to eliminate dupli- 
cation and greatly simplify the operation of the application modules. 
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A, 8 Accelerometer Processing 
A. 8.1 Descriptions of Operation 

The accelerometers attached to the inertial platform of the 
vehicle provide data which serve as the basis for performing naviga- 
tion during boost phases of a mission. Accelerometer Processing, 
as its name implies, reads the accelerometers and refines the data 
into a form suitable for updating vehicle position and velocity. 

During periods when it is enabled, Accelerometer Processing 
is executed once each iteration of the flight program background loop 
by the Non-Interrupt Sequencer (paragraph A. 3). It first inhibits 
interrupts, reads the accelerometers for all three platform axes, 
reads the real time clock, and then releases the interrupts. Inter- 
rupts are inhibited to insure that the input data are all obtained at a 
given point in time rather than separated in time by the execution of 
an interrupt-driven task. 

Before the input data can be used for navigation, each acceler- 
ometer reading is subjected to three tests. Each reading provides two 
pulse counts for redundancy. These pulse counts are subtracted from 
the pulse counts of the previous computation cycle to obtain two delta 
readings which represent the change in vehicle velocity along that 
axis during the previous computation cycle. The two delta readings 
are then compared and if they disagree by more than two pulses, an 
error indication is set. The delta closest to a predicted value is 
selected for further processing. 

A zero test is performed next to detect an unchanging acceler- 
ometer. Finally, a reasonableness test is performed in which the 
actual delta is required to fall within a band of plus or minus fifty 
percent of the predicted value enlarged by a reasonableness constant. 

If a reading does not pass the reasonableness test, it is Replaced by 
a backup value derived from an internally calculated acceleration 
profile. Error indications are set to indicate failure to pass any of 
the tests. 

After the tests are performed, the readings are used to calcu- 
late vehicle acceleration and to update vehicle velocity. 

An additional function performed by the Accelerometer Proces- 
sing kernel is the calculation of mission time at the time the acceler- 
ometers are read 0 
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A. 8. 2 Unique Lanugage Characteristics Required 


Accelerometer Processing requires facilities for reading 
real time data (acceleration and time) and for converting the data to 
an internally usable form. The need also exists for controlling in- 
terrupts via a momentary inhibit as discussed in paragraph A. 8. 1. 

A. 8. 3 Flowchart Notes 

Note 1 


The computation of the average CHIs for the SMC 
calculations (see A-8b) is shown in the flowcharts as 
coded for SPL and CLASP, where PIRADS were used. 
In HAL, PIRADS were not used so the special test 
shown for the averaging of the pitch commanded CHI 
was unnecessary. 


Note 2 


Likewise, for the computation of the expected velocity 
changes (see A-8b), usage of the special SIN/COS 
routine (USCOO) for PIRADS was replaced by the usage 
of the built-in SIN/COS functions in HAL. 
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A. 9 Minor Loop 


A. 9o 1 Description of Operation 

Vehicle attitude control is performed by the Minor Loop 0 In 
general terms, attitude control consists of determining actual attitude 
as indicated by vehicle sensors, calculating the attitude correction 
required to achieve the desired attitude specified by a guidance task, 
limiting the correction command, and issuing properly formatted 
attitude control commands to the vehicle control system. 

To maintain vehicle stability, the Minor Loop is executed 
twenty-five times per second during boost phases and ten times per 
second in orbit. These high frequencies require the Minor Loop to be 
scheduled via the high-priority timer of the Interrupt Processor. 

Vehicle attitude angles for yaw, pitch, and roll are sensed 
by inertial platform resolvers which measure the angles between 
the platform gimbals and the mounting frame. A fine and a coarse 
(backup) resolver are provided for each gimbal. The fine resolvers 
are selected until repeated errors cause a switch to be made to the 
backup resolvers. Each resolver contains redundant counter readi- 
ings and a disagreement indicator which are used by the Minor Loop 
for validity che eking 0 

After reading a resolver, the Minor Loop performs disagree- 
ment processing to select the proper counter. Reasonableness tests 
are then performed to detect invalid zero readings or an unreasonably 
large change from the previous reading. In the event that both counters 
of a resolver are bad, or if the selected counter fails the reasonable- 
ness tests, the corresponding vehicle attitude angle is not updated 
and the previous attitude control command is reissued. Error indica- 
tors are set to identify the type of failure. If the occurrence of re- 
solver failures exceeds predefined frequencies, a switch is made to 
the corresponding backup resolver. Backup failures result in guid- 
ance reference failure indications and the last valid attitude command 
is issued repeatedly for the remainder of the mission. 

Resolver readings which have been determined to be valid 
are converted to internal units and used to determine actual vehicle 
attitude. The actual attitude is then compared with the desired atti- 
tude and the difference is used to calculate attitude error commands 
to be issued to the attitude control system. Before the commands 
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are issued, however, they are limited to not exceed rate and magni- 
tude tolerances. 

A special entry point in the Minor Loop is provided for flight 
simulation tests so that ladder profiles may be generated. 

A. 9. 2 Unique Language Characteristics Required 

While not specifically required, an indirect I/O capability 
would be useful. In the Minor Loop it may be desirable to read 
either fine or backup gimbals depending upon whether or not pre- 
vious gimbal failures have occurred, or it may be desirable to not 
issue a read command at all as in a repeatable flight simulation test 
run. An indirect I/O capability is not mandatory since tests could 
be made to determine the type of I/O required. However, in a pro- 
gram such as the Minor Loop where time is of utmost importance, 
such tests would impose timing penalties. 

Techniques are required for insuring that a given amount of 
time has elapsed between the issuance of gimbal read commands. 
Since the programmer loses sight of execution time in a high level 
language, the language should provide a means for determining such 
delta times and for specifying required time delays. 

The relatively high execution frequencies of the Minor Loop 
(25/second in boost and 10/second in orbit) make minimizing execu- 
tion time particularly desirable for this kernel. The ability to direct 
the compiler to minimize execution time, even at some cost in in- 
creased memory requirements, would be useful if the flight computer 
processing time capacity was near saturation. 

A. 9. 3 Flowchart Notes 

Note 1 


The Flight Simulation entry to the Minor Loop (MMLOO) 
is coded as a separate subroutine in CLASP, CMS-2, and 
HAL since these languages restrict a program module 
to a single entry point. It then calls the normal Minor 
Loop (MML20) rather than transferring control to a point 
within it as shown in the flowchart. 
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A. 10 Switch Selector Processor 


A. 10. 1 Description of Operation 

Certain hardware functions of the Saturn vehicle are activated 
by the flight program via the issuance of switch selector output com- 
mands. The Switch Selector Processing task functions in much the 
same way as the Events Processor, in that it utilizes a predefined 
table containing the switch selector commands and their associated 
times for issuance. The time of activation for a given entry is used 
to schedule the Switch Selector Processor via the high-priority timer 
of the Interrupt Processor. 

However, the process of issuing a switch selector is more 
involved than the function of initiating tasks performed by the Events 
Processor. The issuance of a single switch selector function requires 
at least five I/O operations to be performed: 

o Hung stage test 

o Issue stage and address 

o Verify address 

o Issue read command 

o Reset read command 

In addition, if the hung stage test fails, a forced reset must be issued 
before the stage and address is issued. Also, if an address verifica- 
tion fails, a forced reset must be issued followed by the issuance of 
the stage and complemented address. Depending on the type of veri- 
fication error, the system may be reconfigured to issue future switch 
selectors via different circuitry. 

Hardware restrictions require timing delays between com- 
mand issuance. Since the switch selector delays are on the order 
of ten to twenty-five milliseconds, the Switch Selector Processor re- 
schedules itself for execution at the proper time and returns control 
to the operating system. The interval is too long to be accomplished 
through an in-line delay. 

In addition to the nominal sequence of switch selector functions. 
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provision is made for alternate sequences which can be activated as 
specified by other application tasks. Depending on the type of alter- 
nate sequence, the alternate switch selector functions will be issued 
instead of, or intermixed with, those of the nominal sequence. 

Numerous entry points exist for the Switch Selector Proces- 
sing kernel. Most of the entires are used for scheduling its various 
functions via the Timer 1 Scheduler as discussed above. Three ad- 
ditional entries are used to request an alternate sequence, to issue 
a forced reset, or to initialize Switch Selector Table pointers for a 
new time base. 

A. 10. 2 Unique Language Characteristics Required 

Requirements for an indirect I/O capability and for measur- 
ing short time periods are similar to those discussed for the Minor 
Loop (see paragraph A. 9. 3). 

Although the decision-making statements are a common 
feature of nearly all programming languages, special emphasis on 
them here is warranted due to the unusually large number of decisions 
made in the Switch Selector Processor. . This kernel places a pre- 
mium on language capabilities which enable the programmer to ex- 
press complex decision sequences in a logical and concise manner. 
The extent to which a language provides such capabilities contributes 
directly to the elimination of program logic errors and to an improve- 
ment in readability. Decision tables are particularly useful in this 
environment. 

Another relatively common characteristic of the Switch 
Selector Processor is the manipulation of data at the bit level. It 
utilizes features for setting, resetting, and testing bits in status/ 
control words and also for formatting and analyzing I/O data words. 
These functions require a language to provide bit- string handling 
facilities. 

Also required is the ability to access data from tables. A 
subroutine is utilized to select the next switch selector command to 
be issued from one of a number of tables. Since alternate sequences 
can be interspersed and/or interleaved with switch selectors from 
the nominal sequence, the subroutine must be able to jump from table 
to table based on sequence decisions made by other programs. 
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A. 10. 3 Flowchart Notes 


Note 1 


Switch Selector Processing consists of a number of 
interrelated functions, some of which use common 
program logic. In order to minimize program dupli- 
cation, the functions were all combined into a single 
program module and invoked via multiple entry points 
as shown in the flowcharts. The kernel was actually 
coded that way in SPL. However, for the other three 
languages, where multiple entry points are not allowed, 
a common entry point (MSS00) was utilized wherein con- 
trol was transferred to the appropriate function. The 
decision logic for this transfer of control is not shown 
on the flowcharts but in each of the three languages 
(CLASP, CMS-2, and HAL) it consisted of a com- 
puted GOTO. 
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A, 11 Task Keying (ATMDC) 


A* 11. 1 Description of Operation 

Task Keying is an operating system function associated with 
priority task scheduling; it is the process of entering information 
concerning a task into a Priority Control Table to enable the task 
to be dispatched (initiated) on a priority basis. The information in- 
cludes such items as task priority level, the in-core address of the 
task, and initial register contents for the task. 

Since multiple tasks can usually be keyed for execution on a 
given priority level, various techniques are used for stacking the 
additional entries. In the ATMDC operating system, the Priority 
Control Table (Table A-4) holds a single entry for each priority level. 
Additional entries are stored in a Priority Overflow Table (Table A-5) 
with all entries for a given priority level chained together. 

Requirements for task keying vary with the design of the opera- 
ting system. For the ATMDC Flight Program, tasks are keyed in 
response to events (interrupts or discretes), based on time, or as 
requested by another application task. 

A. 11.2 Unique Language Characteristics Required 

The Task Keying kernel requires facilities for formatting and 
accessing tables. Techniques for linking the overflow entries together 
in an efficient manner are also desirable. 

The kernel also implies a requirement for the capability to 
identify the task to be keyed. The keying process itself does not re- 
quire it since the Task ID is simply stored into a table. However, 
since this is done for the express purpose of dispatching the task (pas- 
sing control to it) at a later time, the Task ID must provide the means 
by which the task can be located in core. 

A. 11.3 Assumptions Made During Coding 

Several assumptions were made for the purpose of organizing 
the control tables. It was assumed that there were ten priority levels 
in the operating system and that twenty-five entries in the overflow 
table would suffice 0 Also, it was assumed that three hardware registers 
required saving for each task. These assumptions affect only the size 
of the control tables and could be easily adjusted. 
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PRIORITY CONTROL TABLE 


Level 0 
Level 1 
Level 2 


Level N-l 


Notes : 

1) Number of priority levels (N) depends on system requirements. 
Ten levels were assumed for the kernel. 

2) During the keying process, the Task ID is either the memory 
address of the task entry point or some other indicator which 
can be used to locate the task in memory. After a task has 
been initiated, this word is used to store the address where 
task execution is to resume following an interruption. A value 
of zero for a Task ID indicates that no tasks are currently as- 
signed to that priority level. 

3) Register storage words are used to save task registers when a 
task is interrupted. They are initialized to zero when a task 
first receives controL The number saved depends on system 
requirements and was arbitrarily chosen as three for the kernel. 

4) The Overflow Chain Link is either a pointer or an index used to 
chain task entries together whenever more than one task has 
been assigned to a given priority level. The additional entries 
are stored in the Priority Overflow Table. A value of zero indi- 
cates no overflow entries exist for that priority level. 

Table A-4 


Task ID 

Reg 1 
Contents 

Reg 2 
Contents 

Reg 3 
Contents 

Overflow 
Chain Link 
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PRIORITY OVERFLOW TABLE 


Entry 0 
Entry 1 
Entry 2 


Entry M 


Overflow 
Chain Link 

Task ID 




i 


Notes: 


1) The Overflow Chain Link has the same meaning' as its counter 
part ;n the Priority Control Table. A value of zero indicates 
end of chain. 

2) The Task ID also has the same meaning as its counterpart in 
the Priority Control Table. A value of zero indicates that the 
entry is not currently assigned. 


Table A -5 
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A* 12 Glossaries 


The Glossary Tables provided in this paragraph document 
most of the names declared in the flight program coding. These 
glossaries are provided as an assistance to reading the flight pro- 
gram listings in Appendix B. It also documents assumptions made 
about system-defined names. 

A. 12. 1 Input/Output Glossary 

Table A-6 contains names and brief descriptions of external 
devices accessed by the flight program kernels. The File Names 
are the jiames used in the actual Input/Output statements. In the HAL 
coding it is assumed that these names are assigned by the system and 
are known to the compiler, because of HAL's device-oriented input/ 
output. In SPL the names assigned by the system cannot be used 
directly in Input/Qutput statements; a FILE statement must be used 
to define input/output arguments in terms of system-assigned names. 
Therefore, for SPL the Device Names of Table A-6 were assumed to 
be assigned by the system, and the File Names were declared through 
the FILE statement. In CLASP and CMS-2 input /output is indicated 
by comments rather than statements of the language. 

A. 12.2 Interrupt Glossary 

Table A- 7 contains names of computer interrupts which were 
assumed to be assigned by the system. The Description identifies 
the LVDC interrupt corresponding to the Interrupt Name. 

Aol2.3 Data Glossary 

Table A-8 contains names and brief descriptions of common 
data items declared in the kernel coding. Minor deviations appear 
in the listings such as break characters in HAL names, and trunca- 
tion of some names to meet CLASP's eight-character limitation. 
However, these deviations are easily associated with the correspond- 
ing names listed in the Data Glossary. 
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INPUT/OUTPUT GLOSSARY 


File Name 

Device Name 

CLOCK 

TIMER 

DBG 

DOMBUGIM 

DCS 

DCSINREG 

DIR 

DISINREG 

DOM 

SSDOM 

DOR 

DISOUTRES 

DOS 

DISOUTSET 

EMR 

EMREG 

ICR 

ICREG 

ss 

SSREG 

SSFB 

SSFDBK 

TIM1 

TIMER 1 

TIM2 

TIMER 2 

XACC 

XACC EL 

XBGIM 

XBACKUP 

XGIM 

XGIMBAL 

XLAB 

XLADDER 

YACC 

YACC EL 

YBGIM 

YBACKUP 

YGIM 

YGIMBAL 

YLAD 

YLADDER 

ZACC 

ZACC EL 

ZBGIM 

ZBACKUP 

ZGIM 

ZGIMBAL 

ZLAD 

ZLADDER 


Description 

Real time clock 

DOM backup gimbal 

Digital command system input 

Discrete input register 

Switch selector DOM output 

Reset discrete output register 

Set discrete output register 

Error monitor register 

Internal control register 

Switch selector command output 

Switch selector feedback 

Timer 1 counter 

Timer 2 counter 

X-axis accelerometer 

X-axis backup gimbal 

X-axis fine gimbal 

X-axis ladder 

Y-axis accelerometer 

Y-axis backup gimbal 

Y-axis fine gimbal 

Y-axis ladder 

Z-axis accelerometer 

Z-axis backup gimbal 

Z-axis fine gimbal 

Z-axis ladder 


Table A- 6 



INTERRUPT GLOSSARY 


Interrupt Names 

Description 

T1INT 

Timer 1 interrupt 

T2INT 

Timer 2 interrupt 

TLCINT 

TLC interrupt 

EX1INT 

External 1 interrupt 

EX2INT 

External 2 interrupt 

EX3INT 

External 3 interrupt 

EX4INT 

External 4 interrupt 

EX5INT 

External 5 interrupt 

EX6INT 

External 6 interrupt 

EX7INT 

External 7 interrupt 

EX8INT 

External 8 interrupt 

EX9INT 

External 9 interrupt 


Table A- 7 



DATA GLOSSARY 


Data Name 


CHIBARSTEER 
COS THETA 

DCSDATACOUNT 

DCSDATCT 

DCSERLIM 

DCSERmm 

DCSINDX 

DCSMODE 

DCSMSTAT 

DCSSTCOD 

DELTAL3 

DELTAVVP 

DELTA2 

DFACQ 

DFDBF 

DFDTL 

DFILE 

DFIL1 

DFIL2 

DFIL3 

DFLT 

DFMDI 

DFSMC 

DFTBCEP 

DFTUP 

DFWV 

DFZER 

DGSSM 

DGST2 

DKAPI 

DKMIR 

DKT1 

DLPRL 

DLPTL 


Description 

CHI bar steering in progress flag 
Cosine of angle between pseudo-nodal 
vector and descending node 
Input data word count 

Table of function data word requirements 
Limit on errors for a given function 
Error tags 

Table index derived from mode command 
Mode command table 
Function status table 
Function telemetry status code table 
Correction to velocity-to-be gained 
Estimated velocity to be gained 
IGM intermediate parameter 
Acquisition gain indicator 
Disagreement multiplexer failure flag 
Sector dump in progress flag 
Flight program status word 

Timer 2 interrupt level in progress indicator 
External interrupt level in progress indicator 
Timer 1 interrupt level in progress indicator 
Flight/sim flight indicator word 
Flight mode indicator 
Steering misalignment flag 
Time base change indicator for events 
processor 

Time update waiting indicator 
Flag which indicates state of water valve 
(open or close) 

Zero test enable flag 

Switch selector function to be scheduled 
Timer 2 function to be scheduled 
Flight phase status table 
Minor loop initial rate 

Timer from GRR when time base 1 was set 
Periodic processor task rate table 
Periodic processor task delta T table 

Table A- 8 
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DATA GLOSSARY 
(continued) 


Data Name 


DLTTL 

DPHII 

DPHIT 

DQST2 

DTBID 

DVAC 

DVACT 


DVASW 


DVA1 

DVA2 

DVA3 

DVA4 

DYA5 

DVA6 

DVCA 


> 




DVCC 

DVD 

DVDA 

DVDB 

DVDC 

DVDGS 

DVDM 

DVDPM 


DVDT 


DVEMR 

DVEOF 


Description 

Timer 2 task execution time table 
Rate of change of range angle 
Rate of change of predicted terminal 
range angle 

Timer 2 function to be en queued 
Time base indicator 
Accelerometer reading 

Real time clock (RTC) reading associated 
with DVTAS 

Switch Selector Request status 


Coefficients used to convert the attitude 
corrections from the inertial platform 
frame to the body frame 


Average of present and past Minor Loop 
commanded CHI at the time of major 
computer cycle accelerometer read 
Commanded CHI used in Minor Loop 
Intermediate velocity change parameter 
Optisyn A. change in velocity 
Optisyn B change in velocity 
Delta CHI 

Count of disagreement bit hardware 
failures 

Measured velocity of platform 
Mask word that specifies which DIN's are 
to be processed when they change from 
OFF to ON 

Elapsed time between current and previous 
major computer cycle accelerometer 
readings in seconds 
Error Monitor Register 

Engine out multiplication factor for backup 
F/M calculation 

Table A- 8 
(continued) 
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DATA GLOSSARY 
(continued) 


Data Name 


Description 


DVERT 

DVF 

DVFMC 

DVFOM 

DVFOR 

DVG 

DVHDA 

DVHDB 

DVIA5 

DVICR 

DVIH 

DVLDB 

DVLRC 

DVMAS 

DVMC4 

DVMC5 

DVMC6 

DVMC7 

DVMFR 

DVMLD 

DVMLR 

DVMLT 
DVM05 
DVM06 
D VP 
DVPTG 

DVRC 

DVRE 
DVR TC 
DVSST 
DVTAS 


Time error associated with time update 
Expected platform velocity change 
Generated acceleration (backup) 

Total vehicle acceleration determined 
from accelerometer readings 
Thrust of vehicle (backup) 

Gravity acceleration 
Count of A multiplexer failures 
Count of B multiplexer failures 
Temporary storage 
Internal Control Register 
Interrupt inhibit image 
Ladder converter B selection rate per 
second 

Ladder ramp commanded CHI update 
counter 

Mass of vehicle (backup) 

Mode Code 24 
Mode Code 25 
Mode Code 26 
Mode Code 27 

Mass flow rate of vehicle (backup) 

Minor Loop 

Number of minor loops per computation 
cycle 

Execution time for next minor loop 
Rate limit for ladders in Minor Loop 
Magnitude limit for ladders in Minor Loop 
Flight phase indicator 

Previous periodic processor execution 
time 

Accelerometer reasonableness test 
constant 

Gimbal failure count 
Real time clock at last time update 
Switch selector execution time 
Mission time at major computer cycle 
accelerometer read in seconds 


Table A- 8 
(continued) 
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DATA GLOSSARY 
(continued) 


Data Name 


FSSAC 

FSSIO 

FTADV 

FTGOP 

GS 

GST1M 

GT 

GV 

G VS TAR 

GVT 

J1 

J12 

J2 

J3 

J3P 

KCCT4 

KCCT8 

KMU 

KT 

K1 

K2 

K3 

K4 

LYP 

LI 

L 12 

L2 

L3 

L3P 

MS4 

M4V 


Description 

Switch selector processing in progress 
flag 

Flag for issuing or bypassing SS I/O 
Normal or class 4 table advance flag 
Time base 6 second opportunity flag 
Gravity acceleration in plumbline system 
Timer 1 function to be scheduled 
Terminal gravity acceleration magnitude 
Gravity acceleration in injection plane 
system 

Estimated average gravity acceleration 
for remaining boost flight path 
Terminal gravity acceleration vector 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
Nominal computation cycle length during 
first S4B CHI bar steering 
Nominal computation cycle length during 
second S4B CHI bar steering 
Gravitational constant 
Cosine (THETAT)/RT 
Coefficient of IGM steering equation 
Coefficient of IGM steering equation 
Coefficient of IGM steering equation 
Coefficient of IGM steering equation 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
Rotation matrix from S-system to 4-system 
Rotation matrix from 4-system to V-system 

Table A-8 
(continued) 
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DATA GLOSSARY 
(continued) 


Data Name 


Description 


DVTB 

DVTEX 

DVTGB 

DYTH 

DYTI 

DVTMM 

DVTMR 

DVTRB 

DVTRR 

DVTRS 

DVVSQ 

DVIMR 

DV2TG 

EPSILON2 

EPSILON 3 
EPTINDX 
EPTPTR 
EPTTBINDX 

EPTTIM 

FASE 

FBRNI 

FBUG 

FBUGS 

FCLS4 

FDSEN 

FDSPG 

FDSRE 

FFBCH 

FGNC 

FHST 


Time in time base at major computer 
cycle accelerometer read in seconds 
Real time clock reading at last interrupt 
Accumulated ground bias time update 
Total gimbal angle 

Time from GRR that the current time base 
was set 

Elapsed time in mission from GRR at 
last time update 

Mission time at start of reference 
Elapsed time in current time base includ- 
ing ground bias time updates 
Elapsed total time in current reference 
Real time clock recording at start of 
reference 

Sum of the squares of X, Y and Z acceler- 
ometer changes 

Computation cycles per minor loop 
Time for next timer 2 function 
Time to begin CHI bar steering for first 
S4B burn 

Time to stop calculating terminal conditions 
Events processor table index 
Pointer to task for processing an event 
Table of index values at beginning of time 
bases 

Time of execution for an event 
Alternate sequence in progress flag 
S4B first/second burn flag 
Backup gimbal active, alter RTC 
RTC conditions flag for gimbals 
Class 4 SS sequence in progress flag 
Mode or data acceptable flag 
DCS function in progress flag 
DCS function termination required 
Switch selector feedback channel flag 
G and C steering in progress flag 
Hung stage test flag 

Table A- 8 
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DATA GLOSSARY 
(continued) 


Data Name 


PHASE 

PHII 

PHIIT 

PHIT 

PI 

P12 

P2 

PPSTAT 

Q1 

Q12 

Q2 

R 

REITERATE 

ROVEX3 

RS 

RT 

RV 

RVT 

R4 

SIN THETA 

SMC FLAG 
SSTTBPTR 

SST1PTR 

SST2PTR 

51 
S12 

52 

S4BURN 
TAU 1 
TAU2 

TAU 3 


Description 

IGM first/second burn indicator 
Range angle traveled since liftoff 
Predicted range angle-to-go 
Predicted terminal range angle 
JGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
Periodic processor task status table 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
Position magnitude 
Alteration flag 

Biased reciprocal of third phase IGM 
exhaust Velocity- 

Position in plumbline coordinate system 
Terminal radius magnitude 
Position in injection plane coordinate 
system 

Terminal position vector 
Position in 4-system 

Sine of angle between pseudo-nodal vector 
and descending node 
Steering misalignment corrections flag 
Table of pointers to switch selector table 
for each time base 
Normal switch selector table pointer 
Class 4 switch selector table pointer 
IGM intermediate parameter 
IGM intermediate parameter 
IGM intermediate parameter 
S4B first/second burn flag 
First phase IGM ideal burn time 
Second or fourth phase IGM ideal burn 
time 

Third or fifth phase IGM ideal burn 
time 

Table A- 8 
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DATA GLOSSARY 
(continued) 


Data Name 


TCI 

THE TAT 

TSTAR 

TIC 

Til 

T2I 

T2STAT 

T3I 

U1 

U12 

U2 

V 

VASPI 

VATRR 

VATR4 

VBUB . 

VCCYA 

VCCZA 

VCG 

VCGO 

VCG1 

VCG 10 

VCG 11 

VCMND 

VCMND1 

VCMND2 

VCOD 

VDEL 

VDSBL 


Description 

Time remaining in S4B coast 

Desired terminal path angle 

Predicted IGM total time-to-go 

Time-to-go to IGM initiation in third phase 

First phase IGM time-to-go 

Second or fourth phase IGM time-to-go 

Timer 2 task status table 

Third or fifth phase IGM time-to-go 

IGM intermediate parameter 

IGM intermediate parameter 

IGM intermediate parameter 

Velocity magnitude 

Alternate sequence in progress status 
word 

Alternate SS sequence time start 
Class 4 SS sequence time start 
Gimbal backup bias error 
Previous pitch command CHI 
Previous yaw command CHI 
High order gimbal, coarse or backup 
resolution 

Gimbal reasonableness rate limit constant 
(backup 2nd pass) 

Gimbal reasonableness rate limit constant 
(backup 2nd pass) (crossover) 

First pass gimbal reasonableness test 
constant 

First pass gimbal reasonableness test 
constant 

Present attitude command 
Previous attitude command 
Actual attitude command 
Platform gimbal used to compute attitude 
Difference between actual and commanded 
attitude 

Storage table for input data 

Table A- 8 
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DATA GLOSSARY 
(continued) 


Data Name 


VDSER 
VDSRC 
VDSSB 
VDS01 
VEXl 
VEX 2 

VEX3 

VF10 

VGBIA 

VGR 

VHSTW 

VIRE 

VMEMR 

VMLET 

VMLO 

VML1 

VML2 
VOAC 
VO ACT 

VOLD 
VPOV 
VPPOT 
VPS TG 
VS 

VSCCA 

VSC1 

VSC3 

VSF 

VSNA 

VSNA1 

VSSCA 

VSSFB 


Description 

Temporary storage for error telemetry 
Error count 
Sequence bit indicator 

Temporary storage for error input data 
First phase IGM exhaust velocity 
Second or fourth phase IGM exhaust 
velocity 

Third or fifth phase IGM exhaust velocity 
I/O flag for fine or backup gimba,ls 
Tin>e base bias to be implemented 
Gimbal angle reading 
Previous stage and address 
Resolver failure limit 
Temporary storage for EMR reading 
Temporary storage for error telemetry 
Gimbal reasonableness test limits 
Gimbal reasonableness test limits 
(crossover) 

Low prder gimbal resolution 
Previous accelerometer readings 
Mission time (in RTC units) at acceler- 
ometer read 

Previous platform gimbal 

Previous measured velocity 

Periodic processor current mission time 

Powered stage indicators 

Velocity in plumbline coordinate system 

Complimented address 

Class 1 temporary storage for SST1PTR, 
VASPI, VATRR 

Class 3 temporary storage for SST1PTR, 
VASPI, VATRR 

Conversion factor for gimbal angles 

Stage and address word 

Stage and address in true form 

Computed feedback 

Switch selector feedback in error 

Table A- 8 
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DATA GLOSSARY 
(continued) 


Data Name 


Description 


VSSRT 

VSSTM 

VSSW 

VSTG 

VSTGO 

VT 

VTD 

VTOLD 

VV 

VVT 

VOCK 

V4 


Switch selector time of issuance 
Temporary SS time storage 
Bias time 

Powered stage temporary storage 
Time-to-go to next SS function 
Terminal velocity magnitude 
Elapsed time into launch window 
Events processor previous event time 
Velocity in injection plane coordinate 
system 

Terminal velocity vector 
Gimbal angle zero test constant 
Velocity in 4- system 


Table A- 8 
(continued) 
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APPENDIX B 


FLIGHT PROGRAM KERNEL CODING 


Each <?f the four major paragraphs of this Appendix contains 
all of the coding for one language , The following table indicates on 
which page the coding of a given kernel (table row) in a given language 
(table colujnn) begins. 

Descriptions and flowcharts of these kernels can be found in 
Appendix a. The blank entries in the table indicate kernel? which were 
not coded in CMS-2. 


— Languages 
Kernels ' — - — — ./ 

SPL 


HAL 

ISjBHj 


Common Data Pool 

83 

129 

175 

229 

1 . 

Initialization 

92 

135 

181 


2. 

Interrupt Processor 

94 

137 

184 


3. 

Non-Interrupt Sequencer 

98 

141 

188 



Periodic Processor 

100 

142 

190 


5. 

Events Processor 

101 

143 

191 


6 . 

Iterative Guidance Mode 

103 

146 

194 

234 

7. 

Digital Command System 

107 

150 

199 

1 

238 

8. 

Accelerometer Processing 

110 

154 

204 


9. 

Minor Loop 

113 

157 

207 

244 

10. 

Switch Selector Processor 

117 

162 

213 

249 

11. 

ATM Task Keying 

126 

172 

226 

258 
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SPL COMMON DATA DECLARATIONS 


START 


.COMPOOL '• SPL COMMON DATA AND UTILITY ROUTINES " 

DECLARE CONTEXTUAL, 

TEMP, 

TEMPI 

DECLARE FLOAT I NR R, 

DKT 1 , 

DVDT , 

DVEOF , 

DVFMC , 

DVFOM , 

DVFOR , 

DVMAS , 

DVMFR , 

DVMLR , 

DVT AS 27, 

ov re , 

DVT I , 

dvvsq , 


D V 1 MR 

DECLARE ARRAY (3) FLOATING R, 

DVD , 


DVOM 

DVF M 

DVGM 


DVRC 

DECLARE FIXED, 


DKMIR 0 

DKTD 0 

D V ACT 0, 

D V A 1 4, 

DVA2 4, 

D V A 3 4, 

DVA4 4, 

DVAb 4, 


CONSTANT « 162.53968 , 
CONSTANT » 13,676, 


D V A 6 

4, 

D VERT 

o. 

DVMLO 

0, 

DVMLT 

-2. 

1) V M 0 5 

0, 

OVM06 

0, 

DVPTG 

-2, 

DVRTC 

0, 

DVSST 

-2, 

0 VTO 

0, 

DVTEX 

0, 

DVTG9 

-2, 

DVTMM 

-2, 

OVTMR 

-2, 

DVTRB 

“2, 

DVTRR 

“2, 

OVTRS 

-2, 

0VTT1 

0, 

DV2TG 

-2 

DECLARE ARRAY 

(3) FIXED, 

DLPRL 

-2 CONSTANT *(203174 


243809. 


• *40 MILLI-SEC ' 


406349. ) , 
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SPL COMMON DATA DECLARATIONS 


DLPTL 

-2 


DLTTL 

(12) -2 


D VC A 

25 

R 

DVCC 

25 

R 

dvda 

7 


DVDB 

7 


OVDC 

25 

R 

DVTH 

25 

R 


DECLARE INTEGER, 

DTBID , 

DVDGS , 

DVHDA , 

DVHDB , 

DVLRC , 

DVP 

ARRAY DVRE (3) INTEGER 
DECLARE STATUS, 

DFACQ (LOSS, GAIN) , 

DFDBF (GOOD, FAILED) , 

DFDTL (INPROG, NOTINPROG) , 

DFLT (FLIGHT, SIM, REP) , 

DFPHC (NOTCHANGE, CHANGE) , 

DFSMC (ENABLE, DISABLE) , 

DFTBCEP (CHANGE, NOCHANGE) , 

DFTUP (NO, YES) , 

DFWV (CLOSE, OPEN) , 

DFZER (ENABLE, DISABLE) , 

DGMLM (MLFS.MLNORM) , 

DGSSM(MLFS,MLNORM,SS05,SS30,SS40,SS50,SS55,SS60,S370,SSBO) , 
DGST2 (T28,UM00,LR10,EP00,TT10,NU00,EE00,CM00,CM10, 

CM20,EPNM,EROO), 

DQST2 (T2S,UM00,LR10,EP00,TT10,NU00,EE00,CM00,CM10 s 

CM20,EPWM,ER00) , 

GSTIM(MLFS,MLNORM,SSO5,SS3O,SS4O,SS5O,SS55,SS6O,SS7O,SS0O) 
DECLARE STATUS (In,OUT), ARSTAT , 

3ASTAT , 

APSTAT , 

DVSTAT , 

DPSTAT , 

NESTAT , 

TCSTAT , 

PASTAT , 

TT3TAT , 

I63TAT , 

HSSTAT , 

OGSTAT , 

TGSTAT , 

R3STAT , 

C3STAT , 

MS3TAT , 

PGSTAT , 

EBSTAT , 

CCISTAT , 

TB13TAT e 
TB573TAT„ 
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SPL COMMON DATA DECLARATIONS 


CT3TAT , 

DTSTAT 

ARRAY DKAPI (4) STATUS (ACTIVE* INACTIVE) 
DECLARE ARRAY STATUS (IN, OUT), 

PPSTAT (3), 

T2STAT (12) 

DECLARE LOGICAL, 

DFILE 

DFIL1 

DFIL2 , 

DFIL3 

DVASW , 

DVDPM , 

DVEMR , 

DVICR , 

DVIH 

DVLDB 

0 VMC4 , 

DVMC5 

DVMC6 , 

DVMC7 

ARPAY D V AC (3) LOGICAL 
DECLARE LOGICAL CONSTANT, 


MSK ABSL ADDER 

• OCT 

'OOOOOIOOO* , 

MSKACCELA 

■ OCT 

•777700000', 

mskaccelb 

■OCT 

• 000017776 ' , 

MSKDCSCOMP 

■OCT 

•774000000 * , 

MSKDCSDO 

. *OCT 

•000040000 ' , 

MSKDCSER 

■ OCT 

•000077776' , 

MSKDCSMC 

■ OCT 

•770000000* , 

MSKDCSMQDE 

■OCT 

•000000020' , 

MSKDCSSB 

■ OCT 

'004000000', 

MSKDCSTEKM 

■ OCT 

' 200000000 ' , 

MSKDINR 

■OCT 

' 000004000 ' , 

MSKEMRLADB 

■OCT 

* OOOOOIOOO * , 

MSKERRORTAO 

■ OCT 

'000070000', 

MSKFMDREP 

■OCT 

•000100000', 

MSKFPSCORD 

■ OCT 

' 100000000 ' , 

MSKFPSINT2 

■OCT 

'000040000* , 

MSKFPSISSA 

■OCT 

' 001000000 ' , 

MSKGIMBALA 

■OCT 

'377700000', 

MSKICRBG 

■OCT 

' 000000020 ' , 

MSKICRCA 

■OCT 

•000040000', 

MSKXCRSSC8 

■ OCT 

•000010000', 

HSKICRSWG 

■ OCT 

'000002000', 

MSKINT 

■OCT 

' 157740000 ' , 

MSKMOD180DEG 

■ OCT 

•377777776', 

MSKRTC 

•OCT 

'000037776* , 

MSKRTCRESET 

■OCT 

•007777540', 

MSK3CC0 

■OCT 

•000100000' , 

MSKSSCLS1 

■OCT 

•000003770', 

MSKSSCLS3 

■OCT 

•077774000', 

MSKSSDCS 

■ OCT 

•500000000', 

MSKSSDCT 

■OCT 

•405400000 ' , 

MSKSSHIG 

■ OCT 

•100720000', 
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SPL COMMON DATA DECLARATIONS 


MC24. 


MC25. 


MSKSSHS 
MSKS-SLOfi 
MSKSSNSEND 
MSKSSOMG 
MSKSSkEAD 
MSKSSRESET 
MSKSSSCC 
MSKSSSIVB 
MSKSSSNA 
MSKSSSSB 
M S K S S wi V 
MSKSS^VC 
MSKSSWVO 
MSKSSZFSF 
M S K T M C 0 
MSKTMC1 
MSKTMC2 
MSKTMCJ 
M8KTMC4 
MSKT2INT 
HSKJ8UDEG 
DECLARE , 


DECLARE, 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


003770000 
i 00520000 
37777777* 
100070000 
400000000 
200000000 
1 00310000 
020230000 
135770000 
174000000 
003000000 
101050000 
101450000 
002000000 
700000000 
710000000 
720000000 
7300 000 UO 
740000000 
100000000 
400000000 


MSKO 

LOGICAL 

constant 

“OCT 

' 400000000 

MSK 1 

LOGICAL 

CONSTANT 

“OCT 

' 200000000 

MSK 2 

LOGICAL 

CONSTANT 

“OCT 

' 100000000 

MSK3 

LOGICAL 

CONSTANT 

«OCT 

' 040000000 

M S K 4 

logical 

CONSTANT 

“OCT 

' 020000000 

MSK 5 

LOGICAL 

CONSTANT 

«ncT 

•010000000 

MSK 6 

LOGICAL 

CONSTANT 

“OCT 

• 004000000 

MS*< 7 

LOGICAL 

CONSTANT 

“OCT 

' 002000000 

MSK 8 

LOGICAL 

CONSTANT 

“OCT 

' 001000000 

MSKQ 

LOGICAL 

CONSTANT 

“OCT 

• 000400000 

MSK 10 

LOGICAL 

CONSTANT 

“OCT 

' 000200000 

MSK 11 

LOGICAL 

CONSTANT 

“OCT 

'000100000 

MSK 12 

logical 

CONSTANT 

“OCT 

' 000040000 

MSK 13 

LOGICAL 

constant 

“OCT 

' 000020000 

MSK 14 

LOGICAL 

CONSTANT 

“OCT 

' 000010000 

MSK lb 

LOGICAL 

CONSTANT 

■ OCT 

' 000004000 

MSK 16 

LOGICAL 

CONSTANT 

“OCT 

' 000002000 

MSKMC4SSCR 

LOGICAL 

CONSTANT 

“OCT 

• 000001000 

MSKlh 

LOGICAL 

constant 

“OCT 

' 000000400 

MSK19 

LOGICAL 

CONSTANT 

“OCT 

' 000000200 

MSKMC4AMF 

LOGICAL 

CONSTANT 

“OCT 

•ooooooion 

MSK21 

LOGICAL 

CONSTANT 

“OCT 

• 000000040 

MSK22 

LOGICAL 

CONSTANT 

“OCT 

' 000000020 

MSK23 

LOGICAL 

CONSTANT 

“OCT 

•000000010 

MSK 24 

LOGICAL 

CONSTANT 

“OCT 

' 000000004 

MSK?b 

LOGICAL 

CONSTANT 

“OCT 

' 000000002 

MSKO 

LOGICAL 

CONSTANT 

“OCT 

' 400000000 

MSK 1 

LOGICAL 

CONSTANT 

■ OCT 

•200000000 

MSK 2 

LOGICAL 

CONSTANT 

■ OCT 

•100000000 

MSK 3 

LOGICAL 

CONSTANT 

“OCT 

' 040000000 

MSK 4 

LOGICAL 

CONSTANT 

“OCT 

' 020000000 

MSK5 

LOGICAL 

CONSTANT 

^OCT 

• oioooonoo 

MSK 6 

LOGICAL 

CONSTANT 

“OCT 

• 004000000 

MSK 7 

LOGICAL 

CONSTANT 

“OCT 

• 002000000 
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MSK8 
MSK9 
MSK10 
MSKll 
MSK12 
MSK13 
MSK 1 4 
MSK15 
MSK 1 6 
MSK 17 
MSK 1 8 
MSK 1 9 

MSKMC548 1 1 

MSK21 

MSK22 

MSK23 

MSK24 

MSK25 

MC26. DECLARE, MSKMC68BRI 

MSK 1 

MSK2 

MSK3 

MSK4 

MSK5 

MSK6 

MSK7 

MSK8 

MSK9 

MSK 1 0 

MSKll 

MSK 12 

MSK 1 3 

MSKMC6LUI 

MSK 1 5 

MSKMC6T86A 
MSK17 
MSKMC6D04 
MSK 1 9 
MSK20 

MSKMC6TB6C 

MSK22 

MSKMC6TB6B 

MSK24 

MSK25 

MC27. DECLARE, MSKO 

MSK 1 

MSKMC7T6D 

MSK3 

MSKMC7OM0 

MSKMC7LO0 

MSKMC7HIG 

MSK7 

MSK 8 

MSK9 

MSK 1 0 


LOGICAL CONSTANT »OCT ' 001000000 
LOGICAL CONSTANT »OCT ' 000400000 
LOGICAL CONSTANT »OCT * 000200000 
LOGICAL CONSTANT »OCT ' 000100000 
LOGICAL CONSTANT »OCT ' 000040000 
LOGICAL CONSTANT «0CT • 000020000 
LOGICAL CONSTANT «0CT ' 000 0 1 000 0 
LOGICAL CONSTANT »OCT ' 000004000 
LOGICAL CONSTANT »OCT ' 000002000 
LOGICAL CONSTANT »OCT ' 00 00 0 1 0 00 
LOGICAL CONSTANT «OCT ' 000000400 
LOGICAL CONSTANT "OCT ' 000000200 
LOGICAL CONSTANT »OCT ' 000000100 
LOGICAL CONSTANT «OCT ' 000000040 
LOGICAL CONSTANT «OCT ' 000000020 
LOGICAL CONSTANT »OCT ' 0 000 00 0 1 0 
LOGICAL CONSTANT «OCT ' 000000004 
LOGICAL CONSTANT »OCT ' 000000002 
LOGICAL CONSTANT «OCT ' 400000000 
LOGICAL CONSTANT «OCT ' 200000000 
LOGICAL CONSTANT »OCT ' 1 00000000 
LOGICAL CONSTANT »OCT ' 040000000 
LOGICAL CONSTANT »OCT ' 020000000 
LOGICAL CONSTANT «OCT ' 01 0000000 
LOGICAL CONSTANT «OCT ' 004000000 
LOGICAL CONSTANT «OCT • 002000000 
LOGICAL CONSTANT «OCT • 001000000 
LOGICAL CONSTANT sOCT • 000400000 
LOGICAL CONSTANT »OCT ' 000200000 
LOGICAL CONSTANT »OCT '000 1 00000 
LOGICAL CONSTANT »OCT ' 000040000 
LOGICAL CONSTANT «OCT ' 000020000 
LOGICAL CONSTANT «OCT • 0000 1 0000 
LOGICAL CONSTANT »OCT ' 000004000 
LOGICAL CONSTANT »OCT ' 000002000 
LOGICAL CONSTANT «OCT • 000001000 
LOGICAL CONSTANT »OCT ' 000000400 
LOGICAL CONSTANT «OCT ' 000000200 
LOGICAL CONSTANT -OCT ' 00000 0 1 00 
LOGICAL CONSTANT «OCT ' 000000040 
LOGICAL CONSTANT «OCT • 000000020 
LOGICAL CONSTANT »OCT ' 000000010 
LOGICAL CONSTANT «OCT • 000000004 
LOGICAL CONSTANT »OCT ' 000000002 
LOGICAL CONSTANT »OCT ' 400000000 
LOGICAL CONSTANT «OCT ' 200000000 
LOGICAL CONSTANT »OCT ' 100000000 
LOGICAL CONSTANT «OCT ' 040000000 
LOGICAL CONSTANT «OCT ' 020000000 
LOGICAL CONSTANT «OCT • 0 1 0000000 
LOGICAL CONSTANT »OCT ' 004000000 
LOGICAL CONSTANT »OCT ' 002000000 
LOGICAL CONSTANT »OCT • 00 1 00 0000 
LOGICAL CONSTANT «OCT ' 000400000 
LOGICAL CONSTANT «0CT ' 000200000 
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ssrw asv.'. 


SSV4SPI . 


SPL COMMON DATA DECLARATIONS 


DbCLARE, 


DECLARE , 


MSK11 

logical 

CONSTANT 

BOOT 

•000100000' 

MSK12 

LOGICAL 

CONSTANT 

*0CT 

• 000040000 ' 

MSK 13 

LOGICAL 

CONSTANT 

= ncT 

' 000020000 ' 

MSK14 

LOGICAL 

CONSTANT 

«OCT 

•000010000’ 

MSKlb 

LOGICAL 

constant 

= OCT 

• 000004000 ' 

MSK16 

LOGICAL 

CONSTANT 

*0 C T 

•000002000' 

MSK17 

LOGICAL 

CONSTANT 

sOCT 

• ooooninoo ' 

MSKlft 

LOGICAL 

CONSTANT 

«OCT 

•000000400' 

MSKiy 

LOGICAL 

CONSTANT 

a 0 C T 

' 000000200 ’ 

MSK20 

LOGICAL 

CONSTANT 

sOCT 

• 00000(1100 ' 

MSK21 

logical 

CONSTANT 

*oc;t 

•000000040' 

MSK22 

LOGICAL 

CONSTANT 

a 0C T 

• 000000020 ' 

MSK23 

LOGICAL 

constant 

«OCT 

• onoooooio • 

MSK24 

LOGICAL 

CONSTANT 

-OCT 

' 000000004 ' 

MSK 2b 

LOGICAL 

CONSTANT 

sOCT 

• 000000002 • 

MSKSSS4CU 

LOGICAL 

CONSTANT 

= OCT 

' 400000000 ' 

MSKSSSPFC 

logical 

CONSTANT 

xOCT 

' 200000000 ' 

MSKSSTH6C 

logical 

CONSTANT 

*OCT 

• lonoooonn • 

MSKSSONSS 

LOGICAL 

CONSTANT 

sOCT 

• 040000000 ' 

MSKSSSHLO 

logical 

CONSTANT 

»OCT 

' 020000000 ' 

MSKSSSHH I 

LOGICAL 

CONSTANT 

sOCT 

•010000000' 

MSKS3SR0M 

LOGICAL 

CONSTANT 

= OCT 

' 004000000 ' 

MSKSSEOSV 

logical 

constant 

»OCT 

•002000000* 

MSK8SECS1 

logical 

CONSTANT 

*0CT 

• 001000000 • 

MSK8ST3A 

LOGICAL 

CONSTANT 

«OCT 

•000400000' 

MSK8STR6D 

LOGICAL 

constant 

sOCT 

’ 000200000 ' 

MS K 1 1 

logical 

CONSTANT 

a OCT 

' oooinoooo ' 

MSK 1 2 

LOGICAL 

CONSTANT 

*OCT 

• 000040000 1 

MSK 1 3 

LOGICAL 

CONSTANT 

sOCT 

' 000020000 ' 

MSK 14 

LOGICAL 

CONSTANT 

sOCT 

• ooooioooo • 

MSKlb 

LOGICAL 

CONSTANT 

= OCT 

' 000004000 ' 

MSKSSTH6A 

LOGICAL 

CONSTANT 

»OCT 

' 000002000 ' 

MSKSSTH6B 

LOGICAL 

CONSTANT 

x OCT 

' 000001000 ' 

MSKSSS4C1 

logical 

CONSTANT 

= OCT 

' 000000400 ' 

MSK 1 9 

logical 

CONSTANT 

= OCT 

' 000000200 ' 

MSK20 

logical 

CONSTANT 

= OCT 

• 000000100 ' 

MSK21 

logical 

CONSTANT 

= OCT 

' 000000040 ' 

M S K 22 

LOGICAL 

CONSTANT 

a OCT 

•000000020 ' 

MSK23 

logical 

constant 

sOCT 

' OOOOOOOIO • 

MSKSSAQPIJ 

LOGICAL 

CONSTANT 

= OCT 

' 000000004 ' 

MSKSSLI 

logical 

CONSTANT 

*OCT 

' 000000002 ' 

MSKSSS4C0 

LOGICAL 

CONSTANT 

*OCT 

' 400000000 ' 

MSKSSSPEC 

logical 

CONSTANT 

®OCT 

•200000000' 

MSKSSCL3 

LOGICAL 

CONSTANT 

= 0CT 

• lonoooooo • 

MSKSSCU. 

LOGICAL 

CONSTANT 

xocr 

' 040000000 ' 

MSK4 

LOGICAL 

CONSTANT 

= OCT 

' 020000000 ' 

MSK 5 

LOGICAL 

CONSTANT 

-OCT 

' 010000000 ' 

M S K S’S T 6 C 

LOGICAL 

CONSTANT 

-OCT 

' 004000000 ' 

MSK 7 

LOGICAL 

CONSTANT 

a OCT 

' 002000000 ' 

MSK 8 

LOGICAL 

CONSTANT 

= OCT 

' 001000000 ' 

mSK 9 

LOGICAL 

CONSTANT 

= OCT 

' 000400000 ' 

MSK 1 0 

LOGICAL 

CONSTANT 

a OCT 

' 000200000 ' 

MSK 1 1 

LOGICAL 

CONSTANT 

® OC T 

' 000100000 ' 

MSK 1 2 

LOGICAL 

CONSTANT 

aOCT 

• 000040000 ' 

MSK 13 

LOGICAL 

CONSTANT 

= OCT 

' 000020000 « 
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SPL 

COMMON DATA 

DECLARATIONS 



MSK14 


LOGICAL CONSTANT «OCT ' 0000 1 OOOO ' , 


MSK15 


LOGICAL CONSTANT «OCT 

000004000 ' , 


MSK 16 


LOGICAL CONSTANT »OCT 

000002000 ' , 


MSK17 


LOGICAL CONSTANT »OCT 

0000010Q0 ' , 


MSK 16 


LOGICAL CONSTANT »OCT 

000000400 ' , 


MSK 1 9 


LOGICAL CONSTANT »OCT 

000000200 ' , 


MSK20 


LOGICAL CONSTANT «OCT 

000000100 ' , 


MSK21 


LOGICAL CONSTANT «OCT 

000000040 ' , 


MSK 22 


LOGICAL CONSTANT »OCT ' 000000020 ' , 


MSK23 


LOGICAL CONSTANT «OCT 

000000010 ' , 


MSK 24 


LOGICAL CONSTANT »OCT 

000000004 ' , 


MSK25 


LOGICAL CONSTANT »OCT 

000000002 ' 

OVERLAY 

MC24 » 

MC25 * MC26 

* MC27 * 

SSDVASW s SSVASPI 

DECLARE 

FILL 

CLOCK 

DEVICE 

a 

TIMER 

1 


FILL 

DBG 

DEVICE 

a 

DOMBUGIM 

9 


FILE 

DCS 

DEVICE 

a 

DCSINREG 

9 


FILE 

DIR 

DEVICE 

8 

DISINREG 

9 


FILE 

DOM 

DEVICE 

a 

SSDOM 

9 


FILE 

DOR 

DEVICE 

9 

DISOUTRES 

9 


FILL 

DOS 

DEVICE 

a 

DISOUTSET 

9 


FILL 

EMR 

DEVICE 

s 

ERRMONREG 

9 


FILL 

ICR 

DEVICE 

8 

INTCONREG 

9 


FILL 

MODREG 

DEVICE 

S 

MODEREG 

9 


FILE 

ss 

DEVICE 

8 

SSREG 

9 


FILL 

SSFB 

DEVICE 

C 

SSFDBK 

9 


FILL 

TELDCSDW DEVICE 

a 

P 1 057 4 

9 


FILE 

TELDCSEC DEVICE 

a 

P 1 0 055 

9 


FILL 

TELDCSSC DEVICE 

a 

P 1 0 0 30 

9 


FILL 

TELGT 

DEVICE 

a 

P 1 0574 

9 


FILE 

TELMLER 

DEVICE 

a 

P I 0570 

9 


FILL 

TELPHIT 

DEVICE 

a 

P 1 04 1 4 

9 


FILL 

TELRTC 

DEVICE 

a 

PI 0 1 74 

9 


FILE 

TELSSF8 

DEVICE 

a 

P 1 050 0 

9 


FILE 

TELSSSA 

DEVICE 

a 

P 1 00 75 

9 


FILL 

TELTAS 

DEVICE 

s 

PIOOOO 

9 


FILL 

TELTB 

DEVICE 

a 

P 1 0 03 1 

9 


FILE 

TELTI 

DEVICE 

a 

P 1056 1 

9 


FILE 

TELT3I 

DEVICE 

s 

P 1 04 64 

9 


FILE 

TELXAC 

DEVICE 

a 

PI0010 

9 


FILL 

TELXDM 

DEVICE 

a 

P 1 0 024 

9 


FILL 

TELX4 

DEVICE 

a 

P I 0 4 4 4 

9 


FILE 

TEL YAC 

DEVICE 

a 

P 1 0 0 1 4 

9 


FILE 

TELYDM 

DEVICE 

a 

P 1 0 03 0 

9 


FILE 

TELYD4 

DEVICE 

a 

P 10450 

9 


FILE 

TELY4 

DEVICE 

a 

P 1 045 0 

9 


FILE 

TELZAC 

DEVICE 

a 

P 1 0 0 0 4 

9 


FILL 

TELZDM 

DEVICE 

a 

P 1 0 0 2 0 

9 


FILE 

TELZ4 

DEVICE 

s 

P I 0434 

9 


FILE 

TIM1 

DEVICE 

a 

TIMER 1 

9 


FILE 

T I M2 

DEVICE 

a 

TIMER2 

9 


FILL 

X ACC 

DEVICE 

a 

X ACCEL 

9 


FILL 

XBGIM 

DEVICE 

s 

X BACKUP 

9 


FILL 

XGIM 

DEVICE 

s 

XGIMRAL 

9 


FILL 

XL AD 

DEVICE 

a 

XL ADDER 

9 


FILL 

Y ACC 

DEVICE 

a 

YACCEL 

9 
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SPL COMMON DATA DECLARATIONS 


FILE. YBGIM 

FILE YGIM 

FILL YL AD 

FILE ZACC 

FILE ZBGIM 

FILE ZGIM 

FILE ZLAD 


DEVICE » Y8ACKUP 
DEVICE a YGIMBAL 
DEVICE » YL ADDER 
DEVICE a ZACCEL 
DEVICE » ZBACKUP 
DEVICE « ZGIMRAL 
DEVICE » ZLAODER 
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SPL UTILITY ROUTINES 


PPOC .UTROO ''TELEMETRY DELAY FOR MODE REG SETTING OF 70'' 

ENTRANCE , UTRO 1 ''TELEMETRY DELAY FOR MODE REG SETTING OF 71" 

FNTRANCE , UTR02 "TELEMETRY DELAY FOR MODE REG SETTING OF 72" 

ENTRANCE .UTR03 "TELEMETRY DELAY FOR MODE REG SETTING OF 73" 

ENTRANCE , UTR04 "TELEMETRY DELAY FOR MODE REG SETTING OF 74" 

ITEM KTELBI AS FIXED 0 CONSTANT « 2. 

ITEM VT I M FIXED 0 
ITEM VTMC LOGICAL 

FNODATA 

VTMC » MSKTMCO 
GOTO TROO 

UTRn 1 . VTMC a MSKTMC1 

GOTO TROO 

UTR02. VTMC « MSKTMC2 

GOTO TROO 

IJ T R 0 3 • VTMC = MSKTMC3 

GOTO TROO 

UTR04. VTMC » MSKTMC4 

TROO . LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EXSINT,EX6INT, 

EX7IMT,FX81NT,EXqiNT 
READ CLOCK, VTIM 

IF VTIM - DVT D LAND MSKRTC GO OKTD GOTO TR05 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

"ALLOW HIGH PRIORITY TASKS TO INTERRUPT" 

GOTO TROO 

TR05 . WRITE MODREG , VTMC 

DVTD * VTIM + KTELBI AS 
EXIT "COMMON TELEMETRY DELAY RETURN' 1 

PROC .UTR30 "TELEMETRY DELAY FOR INTERRUPT LEVEL 3" 

ITEM KTELBIAS FIXED 0 CONSTANT ■ 2. 

ITEM VTIM FIXED 0 

FNODATA 

TR3H. READ CLOCK, VTIM 

IF VTIM - DVTD LAND MSKRTC LS DKTD GOTO TR35 

WRITE MODREG, MSKTMCO 
DVTD « VTIM + KTELBIAS 
EXIT "UTR30" 

PROC . UTR24 "TELEMETRY DELAY FOR INTERRUPT LEVEL 2" 

ITEM KTELBIAS FIXED 0 CONSTANT « 2. 

ITEM VTIM FIXED 0 

ENDDATA 

TR20 . LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 

EX7INT,EX8INT,EX9INT 
READ CLOCK, VTIM 

IF VTIM - DVTD LAND MSKRTC GO DKTD GOTO TR25 

UNLOCK T 1 I NT 
GOTO TR20 

TR2F . WRITE MODREG, MSKTMC4 

DVTD « VTIM + KTELBIAS 
FXIT "UTR24" 

TERM 
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SPL KERNEL 1 


INITIALIZATION 


START 

ENTRANCE 


endoata 


OP 0 0 2. 


MPAno. 


INP13. 


,E6P0 ''MISSION INITIALIZATION" 

.MPAOO "PHASE TERMINATION" 

ITEM VTD FLOATING 

ITEM FGNC STATUS (INACTIVE, ACTIVE) 

LOCK TLCINT, T1INT.T2TNT, EX 1INT,EX2INT,EX3INT,EX4INT,EX5INT, 
EX6INT,F.X7INT,EX8INT,EX9INT 
READ XACC.VOAC(O) 

READ Y ACC , VOAC ( 1 ) 

READ Z ACC , VO AC ( 2 ) 

READ CLOCK, DVACT 
IF DFMDI LAND MSKFMOREP NQ 0 
THEN ON T1INT 

READ CLOCK, DVACT 
LOCK T1INT 
TEMP a 0 
END 

TEMP a 1 
WRITE T I M 1 , TEMP 
UNLOCK T1INT 
IF TEMP EO 1 WAIT 

END 

DFIL1, DFIL2, DFIL3 = 'ACTIVE' 

DVRTC,DVTEX, VPPOT a DVACT 

DVTMM,nVTRR, OVERT, DVTGfi,DVTRS,DVTMR,DT8ID, VTD a 0. 

.EGP1 "ACTIVATE INTERRUPT PROCESSOR CHRONIC STATEMENTS" 

UNLOCK TLCINT 
FGNC a ' INACTIVE' 

DVSST a I.E10 

DVMLT B DVMLD a DKMIR 

. EGP 1 5 "SCHEDULE FIRST TIMER 1 FUNCTION" 

DVP » 1 

IF DVP GR 4 WAIT 

IF DKAPICDVP-1) EG 'ACTIVE' 

THEN .EGP20 "START PHASE TIME REFERENCE" 

GOTO (INP13, INP24, INP13, INP24, *) DVP - 1 
ELSE DVP a DVP + 1 
GOTO GP002 

END 

DFPHC a 'CHANGE' 

LOCK TLCINT,T1INT,T2INT,EX1 I NT , EX2I NT , EX3INT , EX4 1 NT , EX5I NT e 
EX6INT,EX7INT,EX8INT,EX9INT 

WRITE TIM2.MSKRTC "LOAD TIMER 2 WITH A LARGE VALUE TO PREVENT 

TIMER 2 INTERRUPTS FROM OCCURRING" 

WRITE ISR,MSKT2INT "RESET ANY PENDING TIMER 2 INTERRUPT" 
DFIL1, DFIL2 « 'ACTIVE' 

UNLOCK TLCINT, T1INT 
GOTO GP002 
ARSTAT = 'IN' 

SASTAT * 'OUT' 

APSTAT « 'IN' 

DVSTAT a 'OUT' 

DPSTAT a 'IN' 

NESTAT a 'IN' 

TCSTAT « 'OUT' 
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SPL 


KERNEL 1 


INITIALIZATION 


PASTAT ■ 'OUT' 

TTSTAT « 'OUT' 

CC 1 ST AT ■ 'IN' 

I GST AT ■ 'OUT' 

HSSTAT ■ 'OUT' 

OOSTAT « 'OUT' 

TQSTAT « 'OUT' 

RSSTAT « 'OUT' 

CSSTAT * 'OUT' 

TB1STAT » 'OUT' 

TB57ST AT » 'OUT' 

MSSTAT * 'IN' 

PGSTAT a 'OUT' 

EBSTAT ■ 'IN' 

DLPTL ■ 0. 

PPSTAT » 'OUT' 

T2STAT ■ ' OUT ' , 'IN', ' OUT ' 

.MINOO ''PERFORM PHASE 1/3 APPLIC PGM INIT (NOT CODED) 

.EGP18 ''SCHEDULE NEXT TIMER 2 FUNCTION" 

DFIL1 , DFIL2, DFIL3 » 'INACTIVE' 

OFPHC a 'NOTCHANGE' 

UNLOCK "UNLOCK PREVIOUSLY ENABLED INTERRUPTS" 

.N0NINTSEQ1 "PASS CONTROL TO PHASE 1/3 NON-INTERKUPT SEQ" 
INP24. CTSTAT ■ 'OUT' 

DTSTAT ■ 'OUT' 

DLPTL « 0. 

PPSTAT a 'IN' 

T2STAT a 'OUT', 'OUT', 'IN', 'IN', 'IN', 'OUT', 'OUT', 'IN' 

.MIN10 "PERFORM PHASE 2/4 APPLIC PGM INIT (NOT CODED) 

.EGP18 "SCHEDULE NEXT TIMER 2 FUNCTION" 

DFIL1, DFIL2, DFIL3 a 'INACTIVE' 

DFPHC a 'NOTCHANGE' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 



.N0NINTSEQ2 

"PASS CONTROL TO PHASE 2/4 NON-INTERRUPT SEQ" 

PR OC 

, EGP 1 

EXTERNAL 

EXIT 

PROC 

.EGP15 

external 

EXIT 

PROC 

. EGP20 

external 

EXIT 

PROC 

.EGP18 

external 

EXIT 

PROC 

.MINOO 

external 

EXIT 

PROC 

.MIN10 

EXTERNAL 

EXIT 

PROC 

. NONINTSEQ 1 

EXTERNAL 

EXIT 

PROC 

.N0NINTSEQ2 

EXTERNAL 

EXIT 

TERM 

• ' EGPO ' ' 





SPL KEWNFL 2 


INTERRUPT PROCESSING 


START 

ENTRANCE 

ENTRANCE 

FNTRANCE 


fnddata 


.EGPl ''INTERRUPT PROCESSOR'* 

.EGP15 "TIMER 1 SCHEDULER" 

.EGP18 "TIMER 2 SCHEDULER" 

.EGP20 "SYSTEM TIME UPDATE ROUTINE" 

DECLARE FIXED CONSTANT, 

KT1BI AS 0 » 9., 

KT2BIAS 0 » 12., 

K4SEC -2 » 16253.968 


"RESPONSE FOR TLC INTERRUPT 

• i 


ON TLCINT 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT .EX8INT ,EX9INT 
READ CLOCK, DVTEX 
OFIL2.DFIL3 = 'ACTIVF' 

, MTSOO "PROCESS TLC INTERRUPT (NOT CODED) 

"THE TLC APPLICATION PROGRAM DOES NOT RETURN CONTROL 
END 

i i 

"RESPONSE FOR TIMER 1 INTERRUPT 

i i 

ON T 1 1 NT 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT,EX«INT,EX9INT 
READ CLOCK, DVTT1 



DFIL3 s 

• ACTIVE • 






GOTO ( 

,GP11,GP12, 

GP13,GP14 

,GP15,GP16,GP17,GP!8, 

GP 1 9 ) 

GST 1 M 


# mml n o 

' 'FLIGHT 

SIMULATION MINOR LOOP" 

GOTO 

EGPll 

opii . 

.MML20 

' 'NORMAL 

MINOR LOOP ' ' 

GOTO 

EGPll 

OP 1 2 . 

.MSS05 

• 'SWITCH 

SELECTOR 

CHECK « • 

GOTO 

EGPll 

OP 1 3 . 

. MSS30 

' 'SWITCH 

SELECTOR 

HUNG STAGE TEST ' » 

GOTO 

EGPll 

GP14. 

, MSS40 

' ' SWITCH 

SELECTOR 

STAGE, ADDRESS ISSUE' 

' GOTO 

EGPll 

OP 15. 

. hSSbO 

' ' SWITCH 

SELECTOR 

VERIFY ADDRESS' ' 

GOTO 

EGPll 

GP16. 

. MSS55 

' 'SWITCH 

SELECTOR 

READ TIME CHECK * ' 

GOTO 

EGPll 

GP 1 7 , 

, MSS6 0 

' ' SWITCH 

SELECTOR 

READ ISSUANCE' * 

GOTO 

EGPll 

GP1 8 . 

. MSS70 

' 'SWITCH 

SELECTOR 

RESET* • 

GOTO 

EGPll 

GP 1 9 . 

.MSSRO 

' ' SWITCH 

SELECTOR 

COMPLEMENT STAGE, add 

i i 


EGPll . 

, EGP 1 5 

"SCHEDULE NEXT TIMER 1 FUNCTION" 




DFIL3 =» 

* INACTIVE ' 






UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 
END 

• i 


GP21 . 
GP22. 
GP23. 
GP24. 


"RESPONSE FOR TIMER 2 INTERRUPT 

i i 


ON T2INT 
LOCK T2INT 
DFIL1 » 'ACTIVE' 

GO TO (EGP12,GP21,GP22,GP23,GP24,GP25,GP26,GP27,GP28,GP29, 
GP30 , GP3 1 ) DGST2 
.MUMOO "TIME UPDATE 

, MLP 1 0 "LADDER RAMP PROCESSOR 

.MEPOO "EVENTS PROCESSOR" 

. MTT 1 0 "TIME TILT GUIDANCE 


(NOT 

CODED) 

' ' GOTO 

EGP 1 2 

(NOT 

CODED) 

' ' GOTO 

EGP 1 2 



GOTO 

EGP 1 2 

(NOT 

CODED) 

' ' GOTO 

EGP 12 



SPL 


KERNEL 2 


INTERRUPT PROCESSING 


GP25. .MNUOO ''NAVIGATION UPDATE IMPL (NOT CODED) " GOTO EGP12 

GP26. .MEEOO ''TIME BASE 8 ENABLE (NOT CODED) •• GOTO EGP12 

GP27, .MCMOO ''PHASE 2/4 CONTROL MOO (NOT CODED) '• GOTO EGP12 

GP28. .MCMIO ''PHASE 2/4 CONTROL MOD (NOT CODED) " GOTO EGP12 

GP29. , MCM20 ''PHASE 2/4 CONTROL MOD (NOT CODED) •• GOTO EGP12 

GP30. . MEPWM ''WATER METHANOL ACTIVATE (NOT CODED) " GOTO EGP12 

GP31. .MEROO ''EXTRA ACCELEROMETER RD (NOT CODED) ' ' 

EGP12. .EGP18 ''SCHEDULE NEXT TIMER 2 FUNCTION'' 

DFIL1 * 'INACTIVE' 

UNLOCK T2INT 
END 

it ' ' 

'•RESPONSE FOR EXTERNAL 2 INTERRUPT " 

• i " 

ON EX2INT 

LOCK TlINT,T2INT f EXlINT,EX2INT,EX3INT,EX4INT.EX5INT,EX6INT, 
EX7INT.EX8INT.EX9INT 

READ CLOCK, DVTEX "READ REAL TIME CLOCK" 

DFIL2 ■ DFIL3 » 'ACTIVE' 

, MDP28 "SC INITIATION OF S2/S4B SEPARATION (NOT CODED)" 
DFIL2 * DFIL3 a 'INACTIVE' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

ii ' ' 

"RESPONSE FDR EXTERNAL 4 INTERRUPT " 

ii ' ' 

ON EX4INT 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT ,EX8INT , EX9I NT 

READ CLOCK , DVTEX "READ REAL TIME CLOCK" 

DFIL2 ■ DFIL3 = 'ACTIVE' 

.MTB5Q ' ' S4B ENGINE OUT (NOT CODED)" 

DFIL2 = DFIL3 ■ 'INACTIVE' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

ii " 

"RESPONSE FOR EXTERNAL 5 INTERRUPT " 

ii " 

ON EX5INT 

LOCK T1INT.T2INT.EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT.EX8INT.EX9INT 

READ CLOCK, DVTEX "READ REAL TIME CLOCK" 

DFIL2 « DFIL3 » 'ACTIVE' 

, MTB30 "SIC OUTBOARD ENGINE OUT (NOT CODED) 1 ' 

DFIL2 ■ DFIL3 » 'INACTIVE' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

ii " 

"RESPONSE FOR EXTERNAL 6 INTERRUPT " 

ii •' 

ON EX6INT 

LOCK TlINT,T2INT,EXJINT,EX2INT,EX3INT,EX4INT,EXbINT,EX6INT, 
EX7INT ,EX8INT .EX9INT 

READ CLOCK, DVTEX "READ REAL TIME CLOCK" 

DFIL2 ■ DFIL3 « 'ACTIVE' 
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SPL KERNEL 2 


INTERRUPT PROCESSING 


.MTB40 * ' S2 PROPELLANT DEPLETION (NOT CODED)" 

DFIL2 » DFIL3 » 'INACTIVE' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

• i ti 

"RESPONSE FOR EXTERNAL 8 INTERRUPT " 

* i « « 


ON EXBINT 

LOCK T1INT,T2INT 1 EX1INT,EX2INT,EX3INT,EX4INT,FX(5INT,EX6INT J 
EX7INT,EX8INT,EXOINT 

READ CLOCK, DVTEX "READ REAL TIME CLOCK" 

DFIL2 « DFIL3 * 'ACTIVE' 

, MDSOO "PROCESS DCS INPUT" 

DFIL2 * DFIL3 = 'INACTIVE' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

RETURN "EGP1" 

EGP15. READ CLOCK.TEMP 

TEMPI » DVTMM ♦ (TEMP - DVRTC LAND MSKRTC) SCL 0 ♦ KT1BIAS 
CONDITIONS 

DVMLT LM TEMPI ,(Y, , , ) 

DVMLT LQ DVSST , ( , Y, , ) 

DVSST LQ TEMPI , ( , , Y, N) 

ACTIONS 

TEMP * 1 ,CY, , Y, ) 

TEMP » (DVMLT - TEMPI) LSH 1 ,( , Y, , ) 

TEMP = (DVSST - TEMPI) LSH 1 ,( , , , Y) 

GST 1 M * D0MLM , ( Y , Y, , ) 

GST1M = DB8SM , ( , , Y, Y) 

ELSE GOTO EGP150 "THIS POINT SHOULD NEVER BE REACHED LOGICALLY" 
END 

WRITE TIMl.TEMP "LOAD TIMER 1 WITH TIME-TO-GO FOR FUNCTION" 
EGP150, RETURN ' ' EGP15 ' ' 

EGP1R. DGST2 « ' T2S ' 

DV2TG a DVTMM ♦ K4SEC 
FOR I a l by 1 UNTIL 12 

IF T2STAT(I) EQ 'OUT' GOTO T2S10 

IF DLTTL(I) GR DV2TG GOTO T2S10 

DGST2 = 1 
DV2TG a DLTTL(I) 

T2S10. END 

LOCK T1INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT,EX7INT 
EXBINT, EXRINT 

IF DV2TG LQ DVTMM GOTO T2320 

READ CLOCK.TEMP "READ REAL TIME CLOCK" 

TEMP a ( (DV2TG - DVTMM) SCL 0 ♦ OVERT - (TEMP = DVRTC LAND 
MSKRTC) - KT2BIAS) SCL -1 
IF TEMP LQ 0 ’ 

T 2 S 2 0 . TEMP » l 

WRITE TIM2, TEMP "LOAD TIMER 2" 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

RETURN » ' E G P 1 8 ' • 

EGP20. LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT„EX6INT, 

EX7INT,EX8INT,EX9INT 
READ CLOCK, TEMPI 
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PROC 

RRnc 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

TERM 


SPL 

KERNEL 

2 INTERRUPT PROCESSING 


DVERT » TEMPI 

- DVRTC 

LAND 3 



DVTMM ■ DVTMM 
DVRTC ■ TEMPI 
DVTRR ■ DVTMM 

+ (TEMPI 

- DVERT 

- DVTMR 

- DVRTC LAND MSKRTC ) RSH 

2 


CONDITIONS 

DFIL3 EQ 

'ACTIVE' 

,(Y, 

0 

) 

DFIL2 EQ 

'ACTIVE' 

.( . 

Y, 

) 

DFIL1 EQ 

'ACTIVE' 

»( . 

0 

Y) 

ACTIONS 

UNLOCK T 
UNLOCK ' 

1 INT 

'RELEASE 

» ^ 9 

PREVIOUSLY ENABLED 

Y, 

) 


INTERRUPTS EXCEPT TIMER 2" , C , 

0 

Y) 

RETURN ' 

' EXIT EGP20 " , (Y, 

Y, 

Y) 

ELSE UNLOCK ' 

'RELEASE 

PREVIOUSLY ENABLED INTERRUPTS 

i i 


END 


RETURN 

* ' EGP20 ' • 


, MTSOO 

EXTERNAL 

EXIT 

.MMLOO 

EXTERNAL 

EXIT 

.MML20 

external 

EXIT 

, MSS05 

EXTERNAL 

EXIT 

. MSS30 

EXTERNAL 

EXIT 

.MSS40 

EXTERNAL 

EXIT 

. MSS50 

EXTERNAL 

EXIT 

. MSS55 

EXTERNAL 

EXIT 

. MSS60 

EXTERNAL 

EXIT 

. MSS70 

EXTERNAL 

EXIT 

, MSSBO 

EXTERNAL 

EXIT 

.MUMOO 

EXTERNAL 

EXIT 

, ML R 1 0 

EXTERNAL 

EXIT 

.MEPOO 

EXTERNAL 

EXIT 

.MTTIO 

external 

EXIT 

. MNUO 0 

EXTERNAL 

EXIT 

. MEFO 0 

external 

EXIT 

.MCMOO 

EXTERNAL 

EXIT 

.MCMIO 

EXTERNAL 

EXIT 

, MCM20 

EXTERNAL 

EXIT 

. MEPWM 

EXTERNAL 

EXIT 

.MEROO 

EXTERNAL 

EXIT 

. M0P28 

EXTERNAL 

EXIT 

.MTB50 

EXTERNAL 

EXIT 

. M T B 3 0 

EXTERNAL 

EXIT 

. MTB40 

EXTERNAL 

EXIT 

. MDSOO 

EXTERNAL 

EXIT 

' ' EGP1 ' ' 
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SPL KERNEL 3 


MON-INTERRUPT SEQUENCER 


.NONINTSEQ1 
. N0NINTSEG2 


.PERPROC 


•NON-INTERRUPT SEQUENCER FOR PHASES 1 AND 3 • 
•NON-INTERRUPT SEQUENCER FOR PHASES 2 AND 4' 


IF 

arstat 

EG 

• IN' 

THEN .MAROO .PERPROC 


END 





' ' ACCELEROMETER READ ' ' 



IF 

SASTAT 

EQ 

•IN* 

THEN .MSAOO .PERPROC 


END 





• 'SIMULATED ACCEL 

(NOT 

CODED) 

IF 

apstat 

EG 

•IN' 

THEN .MAPOO .PERPROC 


END 





• 1 ACCELEROMETER PROCESSING ' 1 


IF 

D VST AT 

EG 

•IN' 

THEN .MDVOO .PERPROC 


END 





' 'F/M CALCULATIONS 

(NOT 

CODED) 

IF 

DPSTAT 

EG 

'IN' 

THEN . MDPO 0 .PERPROC 


END 





' 'DISCRETE PROCESSOR 

(NOT 

CODED) 

TF 

NESTAT 

EG 

•IN' 

THEN . MNEOO .PERPROC 


end 





' 'BOOST NAVIGATION 

(NOT 

CODED) 

IF 

TCSTAT 

EG 

•IN' 

THEN .MTCOO .PERPROC 


END 





' 'RESTART CALCULATIONS 

(NOT 

CODED) 

IF 

PASTAT 

EG 

•IN' 

THEN . MP A 0 0 .PERPROC 


END 





' ' PHASE ACTIVATOR ' ' 



IF 

TTSTAT 

EG 

'IN' 

THEN .MTTOO .PERPROC 


END 





' 'TIME TILT GUIDANCE 

(NOT 

CODED) 

IF 

CC1STAT 

EG 

•IN' 

THEN . MCC 1 0 . PFRPROC 


END 





' 'CHI COMPUTATIONS 

(NOT 

CODED) 

IF 

I GST AT 

EG 

•IN' 

THEN .MIGOO .PERPROC 


END 





1 ‘ITERATIVE GUIDANCE MODE ' ' 


IF 

HSSTAT 

EG 

'IN' 

THEM .MHSOO .PERPROC 


END 





1 1 S46 CUTOFF PREDICTION 

(NOT 

CODED) 

IF 

OGSTAT 

EG 

•IN* 

THEN .MOGOO .PERPROC 


END 





* ’ORBITAL GUIDANCE 

(NOT 

CODED) 

IF 

T GST A T 

EG 

'IN' 

THEN , MTGO 0 .PERPROC 


END 





• 'TARGET UPDATE 

(NOT 

CODED) 

IF 

RSSTAT 

EG 

'IN' 

THEN , MRS 00 .PERPROC 


END 





• 'TIME-TO-GO TO RESTART 

(NOT 

CODED) 

TF 

CSSTAT 

EG 

' IN' 

THEN .MCSOO .PERPROC 


END 





• 'TIME RASE 6 CHECK 

(NOT 

CODED) 

IF 

TB1STAT 

EG 

'IN' 

THEN . MTb 1 0 .PERPROC 


END 





' 'TIME BASE 1 

(NOT 

CODED) 

TF 

TB57ST AT 

EG 

'IN' 

THEN . MTB57 .PERPROC 


END 





' 'TIME BASE 5/7 

(NOT 

CODED) 

IF 

MSSTAT 

EG 

•IN' 

THEN # MMSOO .PERPROC 


END 





' 'MINOR LOOP SUPPORT 

(NOT 

CODED) 

IF 

PGSTAT 

EG 

•IN' 

THEN . MP G 0 0 .PERPROC 


END 





"SIM PLATFORM GIM ANGLE (NOT 

CODED) 

IF 

FBSTAT 

EG 

'IN' 

THEN .MEBOO .PERPROC 


END 





' 'ETC/BTC 

(NOT 

CODED) 

GOTO NISI 






• 

IF CTSTAT 

EG 

•IN' 

THEN . MOT 00 .PERPROC 


END 



* 


''DATA COMPRESSION TELEM (NOT 

CODED) 

IF DTSTAT 

EG 

'IN' 

THEN o MDTOO 


end 





- "SECTOR DUMP TELEMETRY 

(NOT 

CODED) 


'INSURE PERIODIC PROCESSOR GETS EXECUTED" 


GOTO N0NINTSEQ2 
.MCTOO EXTERNAL EXIT 

.MDTOO EXTERNAL EXIT 

.MAROO EXTERNAL EXIT 

.MSAOO EXTERNAL EXIT 


- 98 - 



PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

PROC 

TER* 


SPL KERNEL 3 


NON-INTERRUPT SEQUENCER 


.MAPOO 

EXTERNAL 

EXIT 

.MOVOO 

EXTERNAL 

EXIT 

. MDP 00 

EXTERNAL 

EXIT 

.MNEOO 

EXTERNAL 

EXIT 

.MTCOO 

EXTERNAL 

EXIT 

, mpa o o 

EXTERNAL 

EXIT 

.MTTOO 

EXTERNAL 

EXIT 

, MCC 1 0 

EXTERNAL 

EXIT 

. M J 0 0 0 

EXTERNAL 

EXIT 

. MHS 00 

EXTERNAL 

EXIT 

.MOGOO 

EXTERNAL 

EXIT 

, MTGOO 

EXTERNAL 

EXIT 

. mrsoo 

external 

EXIT 

, MCSOO 

EXTERNAL 

EXIT 

.MTB10 

EXTERNAL 

EXIT 

.MTH57 

EXTERNAL 

EXIT 

.MMSOO 

EXTERNAL 

EXIT 

. MPGOO 

external 

EXIT 

.MEBOO 

EXTERNAL 

EXIT 

.PERPROC 

EXTERNAL 

EXIT 


♦ » NQNINTSEQ1 ' • 
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SPL KERNEL 4 


PERIODIC PROCESSOR 


START 

ENDDATA 


PPI . 
PP2. 
PPin. 
PP20. 

PROC 

PROC 

PROC 

TERM 


.PERPROC "PERIODIC PROCESSOR" 

ITEM VPPOT FIXED 0 

READ CLOCK, TEMP "READ REAL TIME CLOCK" 

DVPTS ■ (TEMP - VPPOT LAND MSKRTC) RSH 2 

VPPOT ■ TEMP 

FOR I ■ 0 BY 1 UNTIL 3 

IF PPST AT ( I.) EQ ‘OUT* GOTO PP20 

DLPTL(I) » DLPTLCI) ♦ DVPTG 
IF DLPTLCI) LS DLPRLCI) GOTO PP20 

GOTO ( , PPI, PP2, *) I 

• MPC50 " 50 SEC DATA COMP (NOT CODED)" GOTO PP10 

. MPC60 " 60 SEC DATA COMP (NOT CODED)" GOTO PP10 

, MPC99 "100 SEC DATA COMP ( NOT CODED)" 

DLPTLCI) » 0 

END 

RETURN "PERPROC" 

.MPC5Q EXTERNAL EXIT 

.MPC60 EXTERNAL EXIT 

, MPC99 EXTERNAL EXIT 

' 'PERPROC' ' 
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SPL KERNEL 5 


EVENTS PROCESSOR 


START 

ENTRANCE 

ENTRANCE 


enodata 

EPOQ. 


.MEPOO ''EVENTS PROCESSOR TIMER 2 ENTRY" 

, MEP05 "EVENTS PROCESSOR TIME BASE CHANGE ENTRY" 

, MEP 1 0 "EVENTS PROCESSOR RESCHEDULE ENTRY" 

EVENTS PROCESSOR TABLE (THROUGH THE END OF TIME BASE 3) 

THE POINTERS WITH A VALUE OF ZERO ARE TO BE SET DURING 
PROGRAM EXECUTION OR ARE USED TO DISABLE THE EXECUTION 
OF THE EVENTS PROCESSOR FOR THE REMAINDER OF A TIME BASE. 


PRESET EPT ABLE * 


S 2 (EPTPTR 

LOCATION 

CL0CLE285. • 

0,0 

0 

16.0 

0 

17.0 

0 

17.5 

0 

0.0 

L0CLE25. 1 

0.0 

LOC • LE30 • * 

1.0 

0 

6.0 

LOC • LE35 . • 

9.0 

L0CLE40. • 

10.0 

0 

14.0 

L0C*LE50. • 

134.7 

0 

0.0 

L0CLE55. t 

0.0 

0 

0.0 

0 

18.4 

0 

27.5 

0 

0.0 

L0CLE75. • 

0.0 

L0CLE7Q. i 

0.0 

LOCLE250. « 

0.0 

0 

0.0 

LOC * LE355 f » 

0.0 

LOC 1 LE365 . • 

0.0 

LOC 1 LE82 . t. 

1.4 

LOC'LEIOO. f 

4.4 

LOC 1 LE95. » 

4.4 

LOC 1 LE90 , t 

6.7 

0 

6.7 

L0CLE96. « 

6.7 

LOC * LE 1 05 . * 

40.6 

LOC • LE 1 1 5 , ' 

40.6 

LOC 1 LE 1 1 1 • *■ 

58.6 

LOC'LEllO. • 

60.6 

0 

299.0 

(j 

355.0 

0 

388.5 

0 

0.0) 

13 



ITEM VTOLD FIXED 
ITEM EPTINDX INTEGER 

ARRAY EPTTBINDX(IO) INTEGER CONSTANT * 


EPTTIM FIXED 13) 

' 'START OF TBO TABLE ' ' 


' 'START OF TB1 TABLE’ ' 


' 'START OF TB2 TABLE ' ' 


' 'START OF TB3 TABLE' ' 


(0 5 13 18 38 55 71 93 
107 110) 


IF DFTBCEP EO 'CHANGE' 
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SPL KERNEL 5 


EVENTS PROCESSOR 


EP04A. 

EPRET. 


EP02. 

EPOS. 


MEP05. 
MEP1 0. 

FP20. 

F. P 0 8 . 

ppoo 

TERM 


THEN OETBCEP • ' NOCHANGE • 

GOTO EP02 

END 

GOTO EPTPTR(EPTINOX) "EXECUTE REQUIRED MODULE (NONE CODED)" 
LOCK TlINT,T21NT,EXlINT,EX2INT f EX3lNT,EX4INT,EX5INT ( ,EX6INT s 
EX7INT, EXBINT, EX9INT 

IF DFTBCEP EG 'CHANGE' GOTO EP04A 

EPTINDX » EPTINDX ♦ 1 
DGST2 « 'EPOO* 

IF FPTPTR(EPTINDX) NG 0 GOTO EPU3 

T2STAT (DQST2) = 'OUT' 

IF DFIL1 EQ 'INACTIVE' .EGP07 "RESCHEDULE TIMEH2CN0T CODED)" 
UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

RETURN "MEPOO" 

IF EPTTIM(EPTINDX) EQ VTOLD 

THEN UNLOCK "REL PREV ENABLED INTERRUPTS" 

GOTO EPOO 

END 

VTOLD = EPTTIM(EPTINDX) 

DLTTL (DQST2) ■ DVT MR ♦ VT0LD*4063 . 492 A 1 0 
GOTO EP02 

EPTINDX » EPTTBINDX (DTBID) - l 
EPTINDX = EPTINDX + 1 
DGST2 ■ 'EPOO' 

IF EPTPTR (EPTINDX) NQ 0 GOTO EPOS 

T2ST AT (DGST2) = 'OUT' 

IF DFIL1 EG 'INACTIVE' • EGP07 "RESCHEDULE TIMER2(N0T CODED)" 
RETURN "MEP05, MEP10" 

VTOLD e EPTTIM (EPTINDX) 

DLTTL (DGST2) » DVTMR -t, VT0LD*4063 . 492A 1 0 
T2STAT (DQST2) » 'IN' 

GOTO EP20 

. EGP07 EXTERNAL EXIT 

' ' MEPOO ' • 
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START 


ENODATA 


IG253, 


i 

i 

i 


SPL KERNEL 6 ITERATIVE GUIDANCE MODE 


.MIGOO ''ITERATIVE GUIDANCE MODE'' 

'DUE TO THE SIZE OF IGM, ONLY A SECTION OF IT HAS BEEN CODED. 
•PART OF THE GUIDANCE COMPUTATIONS HAVE BEEN SELECTED TO DEMON- 
'STRATE MATHEMATICAL OPERATIONS. THE PHASING PORTION OF IGM 
'HAS NOT BEEN CODED SINCE SIMILAR CAPABILITIES ARE ILLUSTRATED 
'BY OTHER KERNELS. 


DECLARE ARRAY (3) FLOATING R, GS, 

GV, 

GVT 

, GVSTAR, 

PS, 

RV, 

R4, 

RVT, 

vs. 

VV, 

V4 , 

V VT , deltavvp. 

MS4 

(3, 

3), 

M4V (3,3) 


DECLARE STATUS, CHIBARSTEER (INPROG, NOTINPROG). 

PHASE ( BURN 1 , RURN2), 

REITERATE (YES, NO), 

SMCFLAG (CALCULATE, NOCALC), 

S4BIJRN (BURN 1 , BIJRN2 ) 

DECLARE FLOATING w, LI, L2, L12, L3, L3P , LYP, DELTAL3, 

Jl, J2, J12, J3 , J3P, 

Ql, 02, 012, 

PI, P2, P 1 2 , 

SI, S2, S 12 , 

Ul, U2, U 1 2 , 

Til, T2I , T3I , TIC, TCI, TSTAR, 

T A U 1 , TAIJ2, TAU3, 

VEX 1 , VEX2, VEX3, R0VEX3, 

Kl, K2, K3, K 4 , 

PHI I , PHIT, PHIIT, DPHII, DPHIT, 
DELTA2, EPSIL0N2 , EPSILUN3, 
SINTHETA, COSTHETA, THETAT, 

GT, R, RT, V, VT 

DECLARE FLOATING CONSTANT, KT a . 48497964E-7 , 

KMU * -.39860320E15, 

KCCT4 a 1.53, 

KCCT8 * 1.S5 


IG251 - IGM GUIDANCE PARAMETERS COMPUTATIONS 
ROTATE POSITION AMD VELOCITY INTO TARGET PLANE 


R4 a MS4*RS 

.UTROO ''DELAY FOR TELEMETRY AS REQUIRED'' 
WRITE TELX4,R4(0) ''TELEMETER X POSITION IN 
.UTROO ''DELAY FOR TELEMETRY AS REQUIRED'' 
WRITE TELY4.R4C1) "TELEMETER Y POSITION IN 
UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEM 
V 4 a MS4*V S 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 
WRITE TELZ4 , R4 ( 2 ) "TELEMETER Z POSITION IN 
, UTR02 "DELAY FOR TELEMETRY AS REQUIRED" 
WRITE TELYD4,V4(1) "TELEMETER Y VELOCITY IN 
UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEM 


4 SYSTEM ' ' 

4 SYSTEM' ' 
DELAY ROUTINE' 


4 SYSTEM' ' 

4 SYSTEM ' ' 
DELAY ROUTINE' 


' CALCULATE RANGE ANGLE MEASURED IN ORBIT PLANE 
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SPL KERNEL 6 


ITERATIVE GUIDANCE NODE 


TG254, 


IG258. 


I fi 2 5 9 . 


IG260. 

IG262. 


IG269. 


IF T2I EO 0, 

THEN L12, J12,S12,Q12,P12,U12 ■ 0. 

GOTO IG2b9 

END 

IF T 1 1 EO 0. 

THEN LI, J1,S1,Q1,P1,U1 ■ 0. 

GOTO IG2S8 

END 

LI = VEX1*.L0G(TAU1/(TAU1 - Til)) 

J1 ■ L 1 *T AU 1 - VFXHT1I 

51 » L 1 *T II - J1 

Q 1 » S 1 *T AU 1 - . 5 + VEX 1 *T 1 1**2 
PI b J 1 * T A U 1 - ,5*VEX1*T1I**2 
U1 » Q1*TAU1 - VEX 1 *T 1 1**3/6 . 

L2 » VEX2*.L0GCTAU2/(TAU2 - T2I)) 

J2 b L2*T AU2 - VEX2*T2I 

52 « L2*T 2 1 - J2 

02 a S2*TAU2 - .5*VEX2»T2I**2 

P2 » J2*TAU2 - ,5*VEX2*T2I**2 

U2 ■ Q2*TAU2 - VEX2*T2I**3/6. 

L 1 2 » LI + L2 

J 1 2 a Ji + J2 + L2*T 1 I 

S 1 2 s SI - J2 + L12*(T2I + TCI) 

012 a Qi + Q2 ♦ S2*T 1 1 ♦ J 1*T2I 

P 1 2 ■ Pi + P2 + T1I*(2.*J2 ♦ L2*T1I) 

U 12 a U1 + U2 + T1I*(2.*Q2 ♦ S2*T II) + T2I*P1 

L3P « VEX3*.L0G(TAU3/(TAU3 - T3I ) ) 

L VP = L 1 2 ♦ L3P 

J3P ■ L3P*TAU3 - VEX3*T3I 

TIC a TH + T2I «• TCI 

TSTAR « TIC + T31 

PH 1 1 8 ,ATAN(R4(2) ,R4(0) ) 

• i ii 


« 'DETERMINE PHASE 

i i 


■ i 
i i 


IF PHASE EQ ' BIJRN2 ' ''OUT OF ORBIT'' 

THEN ''CALCULATE TERMINAL CONDITIONS" 

SINTHETA a RS*VS/CR*V) 

COSTHETA a , SORT ( 1 , - SINTHETA**2) 

DPHII e V/R*COSTHET A 
DPH1T a VT/RT*.COS(THETAT) 

PHUT ■ .5* (DPHI I ♦ DPHIT)*TSTAR 
PHIT a PHII + PHUT 

.UTR02 "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELPHIT.PHIT "TELEMETER TERMINAL RANGE ANGLE' 
UNLOCK "RELEASE INT LOCKED BY TELEM DELAY ROUTINE" 
IF TSTAR LQ EPSIL0N3 GOTO IG269 

.MIG30 "CALC TERM RAD, VEL, FLT ANGLE (NQT CODED)" 
GT a -KMU/RT**2 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELGT.GT "TELEMETER TERMINAL GRAVITY VECT 

UNLOCK "RELEASE INT LOCKED BY TELEM DELAY ROUTINE" 
PVT a GT*.COSCTHETAT) , 0, GT*,SIN(THETAT) 

RVT a RT*.COS(THETAT) , 0, 0 
PHIT s PHIT - THETAT 



SPL KERNEL 6 


ITERATIVE guidance mode 


I G29 1 


ELSE ''CALCULATE INTERMEDIATE PARAMETERS" 

DELTA2 « V*TSTAK - J3P ♦ LYP*T3I - ROVEX3*( (TAU1 - 
T 1 1 ) *L 1 ♦ (TAU2 - T2I ) *L2 «■ CTAU3 - T3I) 
*L3P)*(LYP + V - VT) 

PHUT » KT*CS12 ♦ DELTA2) "KT » C03THET AT/RT " 

PHIT » PHI I ♦ PHUT 

. UTR02 "DELAY FOR TELEMETRY AS REQUIRED" 

wRI'lE TELPHIT,PHIT "TELEMETER TERMINAL RANGE ANGLE" 

UNLOCK "RELEASE INT LOCKEO BY TELEM DELAY ROUTINE" 

END 

ii it 


"ROTATE POSITION, VELOCITY, GRAVITY TO INJECTION SYSTEM " 

• • " 

M4V ■ .COS(PHIT), 0., .SIN(PHIT), 

0 a » la, Oil 

-.SINCPHin, 0., .COS(PHIT) 

RV « M4V*R4 
VV ■ M4 v*V 4 
GV a M4V*MS4*GS 
GVSTAR a ,5*(GVT ♦ GV) 

DELTAVVP a VVT - VV - TST AR*GVST AR 

• i ' * 


" IR314 - CALCULATE TIME TO GO 

• • 


(NOT CODED) ' ' 

• • 


IF REITERATE t« 'YES' 

THEN REITERATE * 'NO' 

L3P = L3 
J3P = J3 

LYF 3 LYP ♦ DEL T AL3 
GOTO IG260 

END 

REITERATE = 'YES' 

i 

IG324 - COMPUTE CORRECTED VELOCITIES TO BE GAINED (NOT CODED)' 

i 

IG326 - CALCULATE DESIRED PITCH AND YAW (NOT CODED)' 


IF CHIBARSTEER EG 'INPROG' GOTO IG350 

IF TSTAR GQ EPSIL0N2 GOTO IG360 

IF S4BURN EQ ' BURN 1 ' 

THEN DVMC5 = DVMC5 LXOR MSKMC5CBS 
DVMLR b 25 . *KCCT 4 
DV1MR a . 04/KCCT 4 
ELSE DVMC6 ■ DVMC6 LXOR MSKMC6CBS 
DVMLR s 25.*KCCT8 
DV1MR s . 04/KCCTB 



END 



IG340. 

CHIBARSTEER 

* 

* INPROG* 

IG350. 

| 

Kl, K?,K3,K4 
GOTO IG440 

• 

a 

0 

IG360 a ' 

* IG361 - COMPUTE 

INTERMEDIATE PARAMETERS 

IG440. 

* UTROO 11 

•DELAY FOR TELEMETRY AS REQUIRED’* 


WRITE TELT3I,T3I "TELEMETER T3I " 


i i 

(NOT CODED) ' ' 

i • 
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SPL KERNEL 6 


ITERATIVE GUIDANCE MODE 


PROC 

PROC 

PROC 

EXIT 

TERM 


UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 

if ii 

"IG446 - COMPUTE PITCH AND YAW IN 4-SYSTEM (NOT CODED)" 

ii •• 

IF SMCFLAG EO 'CALCULATE' .MSMOO "COMP SMC TERMS (NOT CODED)" 
.MCCOO "PERFORM CHI COMPUTATIONS (NOT CODED)" 

IF DFILE LAND MSKFPSINT2 

,EGP32(MSKSCC0) "ENABLE INTERRUPT 2 (NOT CODED)" 

RETURN "MIGOO" 

.msmoo external exit 

.MCCOO external exit 

, EXP32 (MASK) EXTERNAL 
ITEM MASK LOGICAL 


' 'MIGOO ' • 
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SPL KERNEL 7 DIGITAL COMMAND SYSTEM 


START .MPSOO ''DIGITAL COMMAND SYSTEM'' 

DECLARE INTEGER, DCSDATACOUNT, 

DCSERLIM CONSTANT ■ 7, 
VDSRC 


DECLARE LOGICAL, VDSOl, 
VDSER , 
VDSSB 


DECLARE 

LOGICAL 

CONSTANT, DCSER04 

aO 1 

040000000 ' , 



0CSER10 

= 0 « 

loooooonn • , 



DCSER14 

80* 

140000000 ' , 



DCSER20 

nO» 

200000000 ' , 



DCSER24 

80 ' 

240000000 ' , 



DCSER44 

sO * 

440000000 ' , 



DCSER60 

80 * 

600000000 ' , 



DCSER64 

aQ • 

640000000 ' , 



DCSER74 

= 0 * 

740000000 ' 

DECLARE 

STATUS, 

FDSEN (MODE, DATA), 




FDSPG (INPROG, NOTINPROG) , 

FOSRE (TERM.NOTERM) , 

DCS INDY (ILLEGAL,TRUP,NAVUP,GENSS,SECDMP, 

TELSML,TERM,M5UP,M5IN,TARGUP,SWAN0, 
SWANL0,SWANHI,INWCVL,TB8EN,EXMANA, 
TDEEN,EXMANB,S4LI . ALTSEQ6D) 

DECLARE ARRAY (203, DCSMST AT STATUS (ACTIVE, INACTIVE) , 

DC8STC0D LOGICAL CONSTANT, 

DCSDATCT INTEGER CONSTANT, 

DCSMODE (64) INTEGER CONSTANT, 

VDSBL (35) LOGICAL 

PRESET DCSSTCQD=(0 ' 000000000 ' O'lOOOOOOOO' O' 1 10000000' 

0 ' 120000000 ' 0 ' 130000000 ' 0 ' 1 40000000 ' 
0'200000000' 0*220000000' 0'050000000' 
0'310000000' 0 '770000000 ' 0'77U000000' 

0 ' 770000000 ' 0*450000000' 0'170000000' 
0*330000000* o'ftooooonoo' 0*340000000' 

O' 520000000' 0*250000000'), 

DCSDATCT=(0 1 35 2 2 3 3(0) 35 8(0) 6 0), 

DCSMODE =(5(0) 8 2(0) 1234b 2(0) 14 6 0 7 2(0) 19 
3(0) 9 0 15 17 8(0) 13 4(0) 18 10 11 12 2(0) 
16 15(0)) 

FNDDATA 

UNLOCK ''RELEASE PREVIOUSLY ENABLED INTERRUPTS'' 

REAP DIR, TEMP ''READ DISCRETE INPUT REGISTER*' 

READ DCS, VDSOl ''READ DCS INPUT REGISTER'* 

IF TEMP LAND MSKDCRMODE EG 0 GOTO 0360 


ii < ' 

' ' PROCESS DCS MODE COMMAND ' ' 

ii • ' 

DS09. CONDITIONS 

(VDSOl LSH 7 LXOR VDSOl) LAND MSKDCSCOMP 

EO MSKDCSCOMP , ( Y , N , , , ) 

VDSOl LAND MSKDCSSB EQ 0 , (Y, , N, , ) 

VDSOl LAND MSKDCSMC EQ MSKDCSTERM , (N, , , , ) 

FDSEN EQ 'MODE' ,(Y, , , N, ) 

DFDTL NQ ' INPROG ' AND FDSPG NQ 'INPROG', (Y, , , , N) 

ACTIONS 
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DS20. 

ns?p. 


ns*n . 


nsi 10. 


nsioo. 


SPL KERNEL 7 DIGITAL COMMAND SYSTEM 


VDSER ■ DCSER10 
VDSER ■ DCSER24 
VDSER » DCSER20 
VDSER ■ DCSER64 
GOTO DS220 
GOTO DS20 
ELSE GOTO DS25 
END 

FDSPG » 'INPROG' 

DCSINDX ■ DCSMODE (VDS01 RSH 20) 

IF DCSMST AT (DCSINDX) EQ 'INACTIVE' 
THEN FDSPG ■ 'NOTINPROG' 

VDSER ■ DCSER74 
GOTO DS220 


# ( • Y» . , ) 

»( . . V, , ) 

» ( » * » Y , ) 

»(* * t *Y) 

.( . Y, Y, Y, Y) 

* ( Y » i | t ) 


END 

•'TELEMETER STATUS CODE TWICE" 

, UTR24 ''DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELDCSSC.DCSSTCOD (DCSINDX) 

.UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELDCSSC.DCSSTCOD (DCSINDX) 

UNLOCK "RELEASF INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 
GOTO DS200 ' 'ISSUE CRP' ' 

DCSDAT ACOUNT , VDSSfi ■ 0 
GOTO DS100 


' ' PROCESS DCS DATA WORD 

• i 

CONDITIONS 

FDSEN EQ 'DATA' 

(VDS01 LSH 7 LXOR VDS01) 

EQ MSKDCSCOMP 

VDS01 LAND MSKDCSSB EQ VDSSB 
ACTIONS 

. GOTO DS110 
VDSER « DCSER04 
VDSER = DCSER44 
ELSE VDSER ■ DCSER60 
END GOTO DS220 
"TELEMETER DATA WORD TWICE" 

.UTR24 "DELAY FOR TELEMETRY AS 


LAND MSKDCSCOMP 


REQUIRED ' ' 


» ( Y » N, ) 


.IY, 

» (Y, 

.(Y, 
.( . 
.( . 


Y. 


N) 

) 

) 

) 

Y) 


i i 
i • 


WRITE TELDCSDW, VDS01 

. UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELDCSDW, VDS01 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 
GOTO DS200 ' 'ISSUE CRP' ' 

VDSRL(DCSDATACOUNT) ■ VDSOl LAND MSKDCSMC 
VDSSB ■ VDSSB LXOR MSKDCSSB 
DCSDAT ACOUNT « DCSDATACOUNT + 1 
IF DCSDATACOUNT LS DCSDATCT (DCSINDX) 

RETURN "MDSOO, MORE DATA IS TO BE RECEIVED" 

GOTO ( ,DS01,DS02,DS03,DS04,DS05,DS06,DS07,DS08,DS09A,DS10,DSU» 
DS12,DS13,DS14,DS15,DS16,DS17,DS18,DS10) DCSINDX 
FDSPG « 'NOTINPROG* 

VDSER ■ DCSER14 


GOTO DS220 
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DIGITAL COMMAND SYSTEM 


DS01 . 

D S 0 2 . 

DS03. 

DS04 , 

DS05. 

DS06 . 

DS07 , 

DS08. 

DSOOA, 

PS1C. 

OS 1 1 . 

DS12, 

PS13. 

DS14, 

ns is. 
nsi s. 
nsi7. 
PS 1 8 , 

nsi 9, 


PS220. 


PS235. 


DS530. 


CLOSE 


EXIT 

TERM 


.08260 



' 'TIME BASE UPDATE 

(NOT 

CODED) ' ' 

GOTO 

DS530 

. DS330 

(» 

DS235.) 

' 'NAVIGATION UPDATE 

(NOT 

CODED) ' ' 

GOTO 

DS530 

. DS380 

(• 

DS220 . ) 

' 'GENERALIZED SS 

(NOT 

CODED) ' • 

GOTO 

DSS30 

.DS430 



• 'SECTOR DUMP 

(NOT 

CODED) ' ' 

GOTO 

D5b30 

, DS470 



' 'SINGLE MEM LOC TEL ( NOT 

CODED) ' ' 

GOTO 

D9b30 

, DS5 1 0 



' 'TERMINATE 

(NOT 

CODED) ' ' 

GOTO 

DS530 

, DS540 



' 'MANEUVER UPDATE 

(NOT 

CODED) ' ' 

GOTO 

DSb30 

, DS550 



' 'MANEUVER INHIBIT 

(NOT 

CODED) ' ' 

GOTO 

D3530 

.DS670 

(» 

DS235 * ) 

' 'TARGET UPDATE 

(NOT 

CODED) ' ' 

GOTO 

DSb30 

.DS700 



' 'ANTENNA TO OMNI 

(NOT 

CODED) ' ' 

GOTO 

D3b30 

, DS720 



' ' ANTENNA TO LOW 

(NOT 

CODED) ' ' 

GOTO 

DSb30 

.DS740 



• ' ANTENNA TO HIGH 

(NOT 

CODED) ' ' 

GOTO 

DSb30 

, DS770 



"INHIBIT WATER CONTCNOT 

CODED) ' ' 

GOTO 

0S530 

.DS790 



' 'TIME BASE 8 ENABLECNOT 

CODED) ' ' 

GOTO 

DS530 

. D S 8 1 0 



' 'EXECUTE MANEUVER 

ACNOT 

CODED) ' ' 

GOTO 

DSb30 

.08840 



' 'TD AND E ENABLE 

(NOT 

CODED) ' ' 

GOTO 

D S b 3 0 

. DS880 



"EXECUTE MANEUVER 

B ( NOT 

CODED) ' • 

GOTO 

0Sb30 

.DS900 



' ' S4B/IU LUNAR IMPCTCNOT 

CODED) ' ' 

GOTO 

DSb30 

. DS960 



"ENABLE TB6D ALT SQ (NOT 

CODED) ' * 

GOTO 

DSb30 

i t 

PROCESS 

DCS 

ERROR 

CONDITION 




i i 
i i 


VDSRC = VDSRC + 1 
IF VDSRC LS DCSERLIM 

THEN FDSKE = 'NOTERM' 

ELSE FDSRE ■ 'TERM' 

END 

VI1SFR » VDSER + VDSRC + (VDS01 RSH 12 LAND MSKDCSER) 
•TELEMETER ERROR CODE TWICE'' 

. UTR24 ''DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELDCSEC, VDSER 

. UTR24 "DtLAY FOR TELEMETRY AS REQUIRED" 

WRITE TELDCSEC. VDSER 

UNLOCK "RELEASE INTERRUPTS OISABLED BY TE'LEM DELAY ROUTINE" 
IF FDSRE EQ 'NOTERM' 

RETURN ' ' MDSOO ' ' 

VDSRC « 0 
FOSE N = 'MODE' 

FDSPG a ' NO T I N P P 0 G ' 


RETURN ' ' MDSOO • • 

DS200 "ISSUE DCS COMMAND RESET PULSE" 

LOCK T1INT,T21NT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT .EXBINT.EXRINT 

WRITE DOS, MSKDSCDO "RESET COMMAND RECEIVER" 

FOR I ■ 35 WHILE I GR 0 "DELAY 4.13 MS" 

1 = 1-1 


END 

WRITE DOR.MSKDCSDO "RESET THE RESET COMMAND" 
UNLOCK "RELEASF PREVIOUSLY ENABLED INTERRUPTS" 


' ' DS200 ' ' 
' ' MDSOO ' ' 
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accelerometer PROCESSING 


START 

ENTRANCE 


ENDDATA 


.MAROO "ACCELEROMETER READ ROUTINE" 

.MAPOO "ACCELEROMETER PROCESSING ROUTINE" 

DECLARE FLOATING R, KSN2D CONSTANT ■, 0348994697, " SIN 2 DEG" 

COSTHY, 

COSTHZ, 

SINTHY, 

SINTHZ, 

VACZR 

ARRAY VPOV (3) FIXED 7 

DECLARE FIXED, DELTA 7 , 

VCCYA 25 R, 

VCCYZ 25 R, 

VO ACT 28-2 

DECLARE ARRAY (3) LOGICAL, VOAC, 

M3KAPDG CONSTANT ■ (OCT ' 040000000 ' 

OCT'OIOOOOOOO' 

OCT '200000000') , 

MSKAPOF CONSTANT »( OCT • 0000000 1 0 ' 

OCT'000000200' 

OCT ' 000000020 • ) 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT,EX8INT,EX9INT 

READ XACC,DVAC(0) "READ X ACCELEROMETER" 

READ YACC.DVACCl) "READ Y ACCELEROMETER" 

READ ZACC, DVAC (2) "READ Z ACCELEROMETER" 

READ CLOCK, DVACT "READ REAL TIME CLOCK" 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELTI.DVTI "TELEMETER START TIME OF CURRENT TIME BASE" 

TEMP » DVT AS 

VOACT s DVTMM ♦ (DVACT - DVRTC - OVERT LAND MSKRTC) SCL 0 
DVT AS * .24609375E-3 * VOACT 
DVTP ■ DVT AS - DVT I 
DVDT a DVT AS = TEMP 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELTB , D VTB "TELEMETER TIME IN CURRENT TIME BASE" 

DVMC4 s DVMC4 LAND MSKRTCRESET 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELXAC,DVAC(0) "TELEMETER X ACCELEROMETER READING" 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELY AC,DV AC ( 1 ) "TELEMETER Y ACCELEROMETER READING" 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 

IF "TIME BASE 1" DKT1 EQ 0. "NOT SET" 

THEN DVFMC ■ - DVG(O) 

ELSE DVMAS » DVMAS - DVEOF*DVMFR*DVDT 
DVFMC ■ DVEOF*DVFOR/DVMAS 

END 

i t 


"COMPUTE AVERAGE CHI'S FOR SMC CALCULATIONS " 

• ' it 


A R4 1 , D V C A ( 2 ) = DVCC (2) RSH 1 + VCCZA RSH 1 

VCCZA b DVCC (2) 

DVCA(l) b DVCC(l) RSH 1 + VCCYA RSH 1 
IF ABS(0VCC(1) - VCCYA) GU ,5A25 
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KERNEL 8 


ACCELEROMETER PROCESSING 


DVCA(l) « DVCAC1) ♦ MSK180DEG 

vccya s ovcccn 

.UTROO ''DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELZAC,DVAC(2) ''TELEMETER Z ACCELEROMETER READING'' 

UNLOCK ''RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 

t i • ' 

"COMPUTE CHANGES BETWEEN CURRENT AND PREVIOUS ACCELEROMETER " 

"READINGS '' 

• i ' ' 

A R 1 0 0 • DVD A « CCOVAC LAND MSK ACCELA ) - (VOAC LAND MSKACCELA)) RSri 7 

DVDR ■ (CDVAC LAND MSK ACCELB ) - (VOAC LAND MSKACCELB)) LSH 14) 
RSH 7 

VOAC • DVAC 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELRTC.DVACT "TELEMETER REAL TIME CLOCK AT ACCEL READ" 
UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 

li M 

"COMPUTE THE EXPECTED VELOCITY CHANGES " 

ii ' ' 

A R 7 1 , .USCOO (DVTHC2) * SINTHZ COSTHZ) ''SIN/COS (NOT CODED)" 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELTAS.DVTAS "TELEMETER MISSION ELAPSED TIME" 

UNLOCK ''RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE" 
.USCOO (DVTH(l) = SINTHY.COSTHY) ''SIN/COS (NOT COOED)'' 

DVD a 2G.*DVDT*(C0STHY*C0STHZ, SINTHZ, -SINTHY*COSTHZ) 

DVE » DVFOM*DVD 
RETURN ' ' MAROO ' ' 

MAPOO. DVVSU = 0. 

VACZR b 20 .*DVF0M*DVDT*KSN2D 
FOR I » 0 BY 1 UNTIL 3 

A P 4 0 0 . IF ABSCDVDA(I) - DVDB(I)) LQ 2. A 7 GOTO AP450 

IF ABS(OVDAd) - DVF(I)) LS ABS(OVDB(I) - DVF(I)) 

GOTO A P 44 0 

DVMC4 s DVMC4 LOR MSK APDG ( I ) LSH 1 
DELTA = DVPB(I) 

GOTO AP460 

A P 4 4 0 . DVMC4 b DVMC4 LOR MSK APDG ( I ) 

AP450. DELTA b DVDA(I) 

A P 4 ft 0 . IF ABS(PELTA) GR 1.A7 GOTO APbOO 

IF DFZER EG 'DISABLE' GOTO APbOO 
IF ABS(DVFCT)) LS VACZR GOTO APbOO 
A P 4 7 0 . 0VMC4 = 0VMC4 LOR MSKAPOF(I) 

AP530. DVMC4 s DVMC4 LOR MSKAPDG(I) LOR MSK APDG ( I ) LSH 1 

DFSMC b 'DISABLE' 

DELTA * D VFMC*DVD ( I ) 

GOTO AP520 

APBOO . IF DVF(I) LS 0. 

THEN IF DELTA LS 1.5*DVF(I) - DVRC(I)*DVDT 

OR DELTA GR . 5*D VF ( I ) ♦ DVRC(I)*DVDT GOTO APb30 
ELSE IF DELTA GR 1.5*DVF(I) ♦ DVRC(I)*DVDT 

OR DELTA LS . 5*D VF ( I ) - DVRC(I)*DVDT GOTO APb30 

END 

AP510. DVVSQ s DVVSQ + DELTA**? 

APS20. VPOV(I) = VPOV(I) + DELTA 

DVDM(I) b .05*VP0V(I) 
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ACCELEROMETER PROCESSING 


AP521. 

AP522. 

AP523. 

AP524. 

TERM 


.UTROl "DELAY FOR TELEMETRY AS REQUIRED" 

GOTO ( AP52 1 , AP522, AP523, *) I 

WRITE TELXDM,DVDM(0) "TELEMETER X MEASURED VELOCITY" 
GOTO AP524 

WRITE TELYDM , DVDM ( 1 ) "TELEMETER Y MEASURED VELOCITY" 
GOTO AP524 

WRITE TELZDM,DVDM(2) "TELEMETER Z MEASURED VELOCITY" 
UNLOCK "RELEASE INTERRUPTS LOCKED BY TELEM DELAY ROUT" 

END 

RETURN ' ' MAPOO ' ' 

• ' MAROO ' ' 
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SPL KERNEL 9 


MINOR LOOP 


START 

ENTRACE 


ENDOATA 


MML20 . 
ML 01 . 
MLOOt . 


f'L 1 0 1 . 


NL201 . 


ML 0 0 4 . 
ML430. 


, MMLOO ''FLIGHT SIM ENTRY TO MINOR LOOP'' 
. MML20 ''NORMAL MINOR LOOP ENTRY'' 

DECLARE ARRAY (3) FIXED, VMLO 14, 

VML 1 14, 

VML2 25, 

VCGO 14, 

VCG1 M, 

VCOD 14, 

VOLD 14, 

VDEL 25, 

VCG 25, 

VSF 35 P, 

VBUB 25, 

VCMND 0 R, 
VCMND1 0 R, 
VCMND2 0 R 


DECLARE FIXED, 

KCPBG 14 CONSTANT * 2016., 

VOCK 25, 

VCG 1 0 14, 

VCG 1 1 14 

DECLARE INTEGER, VIRE 

DECLARE ARRAY (3) STATUS, FBUG (N0NE.PASS1 ,PASS2) , 

VFIO (NORMAL, BACKUP, DUMMY) 
DECLARE STATUS FBUGS ( NONE , PASS 1 , PA SS2 ) 

DECLARE ARRAY (3) LOGICAL, VGR , VPGR 
DECLARE LOGICAL, VMEMR, VMLET 
ITEM J INTEGER 


IF DVLRC EG 0 GOTO MLO 1 

DVLRC « DVLRC - 1 

PVCC ■ DVCC ♦ DVOC 

IF FBUGS NO 'NONE' GOTO ML500 

FOR 1*2 BY -1 RHILE I GQ 0 

GOTO ( ML20 1 , MLiOl, , * ) I 

IF VF 1 0 (2 ) EQ 'NORMAL' THEN READ ZG1M.VGRC2) 

ORIF VFIO (2) EO 'BACKUP' THEN READ ZBGIM,VGR(2) 
ELSE V G R ( 2 ) * VPGR(2) 


END 

GOTO M L 0 0 4 

READ EMR, VMEMR ''READ ERROR MONITOR REG'' 

DVLDB * DVLOR - (VMEMR LAND MSKEMRLADB) 

IF VFIO(l) EO 'NORMAL' THEN READ YGIM,VGR(1) 

ORIF VFIO(l) EQ 'BACKUP' THEN READ YBGIM, VGR ( 1 ) 

ELSE VGR(l) * VPGR ( 1 ) 


END 

GOTO ML 0 0 4 

DV£MR b DVEMR LOR VMEMR 

IF VFIO(O) EO 'NORMAL' THEN READ XG1M,VGR(0) 

ORIF VFIO(O) EQ 'BACKUP' THEN READ XBGIM.VGR(O) 
ELSE VGR ( 0 ) * VPGR ( 0 ) 


END 

IF VGR ( I ) GO 0 
IF DVDGS LS 0 
IF DVDGS EQ 0 


GOTO ML020 
GOTO ML432 
GOTO ML020 
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MINOR LOOP 


GOTO ML637 

ML432. .MDGOO (■ J, ML434.) "PROCESS DISAGREEMENT BIT (UNCODED) 

"DISAGREEMENT BIT PROCESSING WILL TAKE A NORMAL RETURN IF THE 
"DISAGREEMENT BIT IS FOUND TO BE INVALID. OTHERWISE IT WILL 
"TAKE THE ERROR EXIT TO ML434 AND SET J « 0 IF THE GIMBAL IS 
"VALID OR J * 1 IF THE GIMBAL IS NOT VALID. 

i i 


ML 434, 
ML4350. 


ML4351 . 


ML4352. 


ML020. 


ML040. 


ML045. 

ML 1 4 5 , 

ML245. 

ML630. 

ML*31 . 
ML632. 


GOTO ML020 

GOTO (ML4352, ML4351, ML4350, 

IF VFI0C2) EO 'NORMAL' 

THEN READ ZGIM, TEMP 
ELSE READ ZBGIM, TEMP 

END 

GOTO (ML020, ML637, *) J 

IF VF 1 0 ( 1 ) EQ 'NORMAL' 

THEN READ YGIM, TEMP 
ELSE READ YBGIM.TEMP 

end 

GOTO (ML020. ML637, *) J 

IF VFIO(O) EQ 'NORMAL' 

THEN READ XGIM, TEMP 
ELSE READ X8GIM, TEMP 


*) I 

' 'RESTART COO 
' 'RESTART COD 


' 'RESTART COD 
' 'RESTART COD 


• 'RESTART COD 

• 'RESTART COD 


COUNTER' ' 
COUNTER' ' 


COUNTER ' ' 
COUNTER' • 


COUNTER ' • 
COUNTER' ' 


END 

GOTO CML020, ML637. *) J 
VCODCI) » VGRCI) LAND M8KGIMBALA 
CONDITIONS 

VCODCI) EQ 0 
VOLD(I) EQ 0 
ABSCVDELCI)) GQ VOCK 
ABSIVCODCI) - VOLD(I)) LS VMLOCI) 
ABSCVCOD(I) - VOLD C I ) ) + VMLOCI) GQ VML1CI) 
VCODCI) - VOLDCI) LS 0 
ACTIONS 


* t Y , , , ) 
,CY, , , ) 
» C Y , f , ) 
.C ,Y, , ) 
»C . »Y»Y) 
i ( • »Y»N) 


GOTO ML631 

VCGII) 8 VCGCI) ♦ VML2CI) 
VCGCI) « VCGCI) - VML2CI) 
GOTO ML040 
ESLE GOTO ML630 
END 


.CY. . , ) 
. C , ,Y, ) 
.( . . .Y) 
.( .Y.Y.Y) 


DVTHCI) « VSF C I ) * VCOD Cl) + VCGCI) 
VOLDCI) * VCODCI) 

VDELCI) 8 DVTHCI) - DVCCCI) 

DFDBF ■ 'GOOD' 

GOTO CML245, ML145, ML045, * ) I 
VCMNDC2) 8 DVA5*VDELC2) - DVA4*VDELCl) 
GOTO ML730 

VCMNDC1) » OVA 1*VDEL Cl) ♦ DVA2*VDEL C2) 
GOTO ML730 


VCMNDCO) s DVA6*CVDELC0) 

GOTO ML730 

VMLET a I ♦ 3 

GOTO ML632 

VMLET « I 


♦ DV A3*VDEL C 1 ) ) 


VMLET 8 VMLET LSH 11 ♦ VCODCI) RSH 14 ♦ VOLDCI) 
IF DVMC6 LAND M8KMC6D04 EQ 0 THEN 
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MINOR LOOP 


HL63S. 


ML636 . 

M L637 ■ 
ML 730. 


ML 760 . 
ML 060. 


ML l 60. 
ML260. 


. UTK30 ''DELAY FOP TELEMETRY AS REQUIRED" 

WRITE TELMLER, VMLET ''TELEM MINOR LOOP ERROR MESSAGE'' 

END 

IF DFDBF EG 'FAILED' GOTO ML635 

DVRECI) 8 DVRECI) * 1 

IF DVRECI) LS 0 GOTO ML637 

IF DVRECI) GR 0 GOTO ML636 

VMLET » VCOOCI) RSH 14 + VOLDCI) + MSKERRORT AG 

VFIO(I) 8 'RAOKUP' 

VCG ( I ) 8 CVOGCI) LAND MSK180DEG) - VBUB(I) 

VML2(I) 8 MSK180DEG 

VOLD(I) 8 (DVTH(I) LAND MSKM0D1R00EG)*KCPBG 
LAND MSKGIMBALA 
VSF(I) 8 l./KCPRG 
IF I EQ 2 

THEN WRITE ICR, MSK T CRBR ''SET INTERNAL CON R F. G ' ' 

DVICR » DVICR LXOR MSKICRBG 

END 

FRUGS 8 FRIJGCI) 8 ' P A S S 1 • 

VMLO(I) 8 VCG 1 0 
VM|.1(I) 8 VCG 11 

IF DVMC6 LAND MSKMC6004 EO 0 THEN 

. U T R 3 0 ''DELAY FOR TELEMETRY AS REQUIRED'' 

WRITE TELMLER, VMLET ''TELEM MINOR LOOP ERROR MESSAGE'' 

END 

GOTO ML637 
DVHDR 8 DVHOB - 1 
DFDBF 8 'HOOD' 

DVHDA 8 DVHDA + 1 

IF DVHDA LS 0 ROTO ML636 

WRITE ICK,MSKICRSWG ''SET INTERNAL CONTROL REG.'' 

DVICR 8 DVICR LXOR MSKICRSwG 
DVMC4 8 DVMC4 LOR MSKMC4AMF 
DVDGS 8 0 

IF DVRE(l) LS VIRE GOTO ML637 

IF DVMC6 LAND M8KMC6D04 EG 0 . UDOOO ( MSKGHF ) ''SET 

GUIDANCE RFFERENCE FAILURE DISCRETES (NOT COOED)'' 

DF SMC 8 'DISABLE' 

GOTO ML 760 

IF ABS(VCMND(I) ) GR DVM06 VCMMD(I) 8 OVM06 
IF ABS(VCMNDd) - VCMNDl(T)) OR DVMOS 

VCMNO(I) 8 VCMND1CI) + DVMOb 

VCMNDl(I) 8 VCMNDCI) 

IF VCMND(I) LS 0 

THEN V0MND2 ( I ) 8 MSKABSLAOOER - VCMNDCI) 

ELSE VCMND2CI) 8 VCMNDCI) 

END 

GOTO (ML 260, ML 1 60 , ML060, * ) I 

WRITE Zl.AD, VCMND2C2) ''ISSUE YAW COMMAND'' 

IF DVLDB LS 0 WRITE ICR.MSKICRCA 

DVMLT 8 DVTMM + DVMLD + (DVTT1 - DVRTC LAND MSKRTC ) RSH 2 
GOTO LOOPEND 

WRITE YLAD,VCMND2(1) ''ISSUE PITCH COMMAND'' 

GOTO LOOPEND 

READ DBG, TEMP ''START SPECIAL DOM BACKUP GIMBAL'' 
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WRITE ZLAD.VCMND2C2) "ISSUE YAW COMMAND" 

WRITE XLAD, VCMND2C0) "ISSUE POLL COMMAND" 

LOOPENO. END 

RETURN ' 'MMLOO, MML20 • ' 

MLSflO. FOR 1*0 BY 1 UNITL 3 

GOTO CML530, ML520, ML540, * ) FBUG(I) 

ML520. FBUGCI) * ' P ASS2 ' 

GOTO ML530 

MLBAO, FBUGCI) * 'NONE* 

VMLOCI) « VCGOCI) 

VMLl(I) 8 VCG1C1) 

ML530 . END 

FBUGS » FBUG(O) LOR FBUGCI) LOR FBUG (2) 

GOTO ML001. 

PROC .MDGOO C = J, EREXIT.) EXTERNAL 

EXIT 

TERM " MMLOO ' ' 
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SWITCH SELECTOR PROCESSING 


start 

.MSSOQ 

• 'SWITCH 

FN TRANCE 

.MSS05 

• » NORMAL 

ENTRANCE 

. MSS 1 0 

• ' SWITCH 

ENTRANCE 

, MSS20 

» 1 switch 

ENTRANCE 

.MSS30 

* • switch 

ENTRANCE 

, MSS4G 

' 'SWITCH 

ENTRANCE 

, MSS50 

' ' SWITCH 

ENTRANCE 

.MSS55 

' 'SWITCH 

ENTRANCE 

, MSS60 

' 'SWITCH 

FN TRANCE 

.MSS70 

' 'SWITCH 

entrance 

. MSS80 

» ' SWITCH 


SELECTOR CHECK FOR ALTERNATE SEQUENCE'' 
SWITCH SELECTOR CHECK" 

SELECTOR INITIALIZATION FOR TIME BASE SET" 
SELECTOR FORCED RESET ' ' 

SELECTOR HUNG STAGE TEST" 

SELECTOR STAGE AND ADDRESS ISSUANCE" 
SELECTOR VERIFY ADDRESS" 

SELECTOR READ TIME CHFCK " 

SELECTOR READ ISSUANCE" 

SELECTOR RESET • ' 

SELECTOR COMPLEMENT STAGE 


AND ADDRESS' 


SWITCH SELECTOR TABLE 


SSTTB1 IS THE SS TABLE FOR TIME BASE 1. OTHER TABLES 
WITH IDENTICAL FORMATS nOULD BE PROVIDED FOR THE OTHER 
TIME BASES AND THE ALTERNATE SEQUENCES. 


TABLE SSTTbl 

28 SERIAL 2 

CONSTANT 

(TIME 

FIXED 10 

0 0, 

STAGE 

LOGICAL 5 

1 0, 

ADDRESS 

LOGICAL 8 

1 5 ) 

B( 5.0 

OCT • 00 » 

OCT » 000 • 

6.0 

OCT * 04 ' 

OCT' 152' 

14,0 

OCT'Ol ' 

OCT' 142' 

19.8 

OCT'20' 

OCT' 151 » 

20.0 

OCT '20 • 

OCT » 131 ' 

20.2 

OCT » 20 ' 

OCT ' 147 ' 

24,0 

OCT'Ol ' 

OCT • 137 ' 

27.0 

OCT'20 1 

OCT ' 042 ' 

29.0 

OCT ' 01 • 

OCT* 177* 

30.0 

OCT »2Q ' 

OCT ' 061 ' 

32.0 

OCT ' 20 ♦ 

OCT ' 0 22 » 

49.5 

OCT ' 01 » 

OCT ' 002 ' 

75.0 

OCT ' DO » 

OCT ' 000 • 

90.0 

OCT * 20 1 

OCT • 042 * 

95.0 

OCT '20 • 

OC T ' 022 ' 

95.3 

OCT'Ol' 

OCT ' 055 ' 

105.0 

OCT • 20 1 

OCT* 175* 

115,1 

OCT ' 01 • 

OCT'137' 

119.8 

OCT'20' 

OCT * 157' 

120.0 

OCT »20 ' 

OCT ' 137* 

120.1 

OCT » 01 ' 

OCT» 177' 

130.0 

OCT '20 ' 

OCT ' 101 • 

132.4 

OCT '01 • 

OCT ' 035 ' 

133.6 

OCT'20' 

OCT » 0 1 6 ' 

133.8 

OCT '20» 

OCT ' 036 ' 

134.4 

• OCT'Ol « 

OCT ' 037 ' 

134.6 

OCT » 01 » 

OCT ' 077 ' 

OCT ' 377777776 ' OCT'OO' 

OCT ' 000 ' ) 

DECLARE FIXED 

-2 CONSTANT 

, KSS500MS 


KSS500SEC 

KCSSK 

KSSB1 

KSSB2 


* 2031.7460, 
a 2031746.0, 
a 812.69840, 
a 70.142856, 
a 103.68730, 


- 117 - 



SPL KERNEL 10 


SWITCH SELECTOR PROCESSING 


KSSB3 » 66.206348, 

KSSB4 » 35.825396, 

KS3B5 b 102.65079, 

KSSB6 ■ 50.825396, 

KSSB7 * 87.460316, 

KSSB8 ■ 43.825396, 

KSSCK » 2031.7460, 

KSSRB ■ 201.17460, 

KCSR 13 b 4063.492 

DECLARE FIXED -2, VATRR, 

VATR4, 

VGBIA, 

VSSRT , 

VSSTM, 

VSSW, 

VSTGO 

DECLARE LOCATION, SST1PTR, 

SST2PTR 

ARRAY (8) SSTTBPTR LOCATION b( LOC'SSTTBl' 

LOC ' SSTTB2 ' 

LOG ' SSTTB3 ' 

L0CSSTTB4' 

LOC ' SSTTB5 ' 

0 

LOC * SSTTB7 ' 

LOC ' SSTTB8 ' ) 

DECLARE ARRAY (3) LOGICAL, VSC1, 

VSC3 

DECLARE LOGICAL. VASPI, 

VHSTW, 

VPSTG, 

VSCCA, 

VSNA , 

VSNA1, 

VSSCA, 

VSSFB, 

VSTG 

DECLARE STATUS, FA8E (NORMAL, ALTERNATE) , 

FBRNI (FIRST, SECOND) , 

FCLS4 (NOTINPROG, INPROG), 

FFBCH (CHANA , CHANB) , 

FHST (NOTEST, TEST), 

FSSAC (INACTIVE, ACTIVE), 

FSSIO (YES, NO), 

FT AD V (NORMAL, CLASS4) , 

FT60P (PASS1.PASS2) 

enddata 

LOCK T1INT,T2I-NT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, 
EX7INT, EXBINT, EX9INT 
FASE b • ALTERNATE ' 

CONDITIONS 

DVASW LAND MSKSSS4C0 NQ 0 ,(Y,Y, , , , , , ) 

DVASW LAND MSKSSSPEC NQ 0 ,( , , Y, , , , , ) 

DVASW LAND MSKSSTB6C NQ 0 ,(, , ,Y, , , , ) 

DVASW LAND MSKSSCLS1 NQ 0 ,( , , , , Y, Y, Y, ) 


- 118 - 



SPl. 


KERNEL 10 


SWITCH SELECTOR PROCESSING 


m s s n 5 . 

S S 0 0 o o , 
SS0010, 


SS0015. 


DVASW LAND MSKSSTB6A NQ 0 

. ( 

» 1 

f 

9 

Y, 

N, 

N, 

) 

DVASW LAND MSKSSS4C1 NQ 0 

. ( 

* 9 

9 

9 

9 

Y, 

M , 

) 

VASPI LAND MSKSSS4C0 NQ 0 

»CY 

, N, 

9 

9 

9 

9 

9 

) 

FSSAC EQ 'ACTIVE' 

»( 

9 9 

9 

9 

9 

9 

9 

Y) 

ACTIONS 










VSC1 (0) 

■ SST1PTR 

.( 

9 9 

9 

9 

Y, 

Y, 

Y , 

) 

VSC1C1) 

■ VASPI 

,c 

9 9 

9 

9 

Y, 

Y, 

Y, 

) 

VSC1 (2) 

s VATRR 


9 9 

9 

9 

Y, 

Y, 

Y, 

1 

DVASW 8 

DVASw LAND MSKSSWV 

, (Y 

9 Y, 

Y, 

9 

i 

9 

9 

1 

DVASW = 

DVASW LXOR MSKSSTB6C 

.( 

9 9 

9 

Y, 

i 

9 

9 

) 

DVASW s 

DVASW LXOR MSKSSTB6 A 

,( 

9 9 

9 

9 

Y , 

9 

9 

) 

DVASw s 

DVASW LXOR MSKSSS4C 1 

»( 

9 9 

9 

9 

9 

Y, 

9 

) 

DVASW a 

DVASw LXOR MSKSSTB6B 

, c 

9 9 

9 

9 

9 

i 

Y , 

) 

.EGP08 ' 

'RESCHED T1 (UNCODEDD ' 

. ( 

9 Y, 

Y, 

9 

9 

• 

9 

) 

VASPI = 

MSKSSS4C0 

, ( 

* Y, 

9 

9 

9 

9 

9 

) 

VASPI » 

MSKSSSPEC 

» ( 

* 9 

Y, 

9 

9 

9 

9 

) 

VASPI 8 

VASPI LOR MSKSST6C 

. ( 

9 9 

9 

Y, 

9 

9 

9 

) 

VASPI a 

MSKSSCL1 

.( 

9 9 

9 

9 

Y, 

Y # 

Y, 

) 

DVMC6 = 

DVKC6 LOR MSKMC6TB6C 

, C 

9 9 

9 

Y, 

9 

9 

9 

1 

DVMC6 » 

DVMC6 LOR MSKMC6TB6 A 

.( 

9 9 

9 

9 

Y, 

9 

9 

) 

DVMC6 = 

DVMC6 LOR MSKMC6TB6B 

, C 

9 9 

9 

9 

9 

9 

Y, 

) 

SST1PTR 

= LOC ' SSTSIVB ' 

.( 

9 Y, 

9 

9 

9 

9 

9 

) 

SST1PTR 

= LOC'SSTSIVA' 

.( 

9 1 

Y, 

9 

9 

9 

9 

) 

SST1PTR 

» LOC ' SSTTB6C ' 

. c 

1 9 

9 

Y, 

9 

9 

9 

) 

SST1PTR 

8 LOC ' SSTT86A ' 

. c 


9 

9 

Y, 

9 

9 

) 

SST1PTR 

* LOC ' SSTS4C 1 ' 

,( 

9 9 

9 

9 

9 

Y, 

9 

) 

SST1PTR 

8 LOC ' SSTTB6B ' 

.c 

9 9 

9 

9 

9 

9 

Y, 

) 

.SSTUPD 

( = VATRR1 

, ( 

9 9 

9 

Y, 

Y, 

Y, 

Y, 

) 

' 'UPDATE SS TIME' ' 









FTADV = 

' NORMAL ' 

.( 

9 9 

» 

9 

Y, 

Y, 

Y, 

) 

GOTO SS0060 

.CY 

9 » 

9 

9 

9 

* 

9 

Y) 

GOTO SS 1 050 

.( 

9 Y, 

Y , 

Y, 

Y, 

Y, 

Y, 

) 


ELSE GOTO SSOOOO 


END 

FSSAC s 'INACTIVE' 

IF INO(SSTIPTR) NM MSKSSNSEND 

THEN . SSTUPD (= VSTGO) ''UPDATE SS TIME'' 

VSTGO « VSSRT - VSTGO 

IF VSTGO LS KSSbOOMS GOTO MSS30 

IF DFTUP EQ 'YES' 

THEN DVTGB « DVTGB + VGB I A 
VGBIA « 0 
DFTUP » 'NO' 

GOTO SS0010 

EI.SF IF DVASw NQ 0 GOTO SS0170 

VSSTH « VSTGO + D VTRB - DVTGB - KCSSK 
DVSST » VSSTM + DVTMR 
DGSSM a • SS30 ' 

IF DFIL3 EQ 'INACTIVE' .EGPO0 ' ' RESCHEDT 1 ' ' 

END 

GOTO SS0060 

END 

IF DVASW NQ 0 GOTO SS0170 

READ CLOCK, TFHP ''READ REAL TIME CLOCK'' 

DVSST a DVTMM + KSS500SEC + (TEMP - DVRTC LAND MSKRTC ) SCL 0 
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SS0170. 


SS0201. 

SS0230. 

SS0235. 

SS0060. 


DGSSM ■ ' SS05 ' 

IF DFIL3 EG 'INACTIVE' .EGP08 ''RESCHED TIMER 1 (NOT CODED)'' 

GOTO SS0060 

CONDITIONS 


DVASW 

LAND 

M8K8SCLS3 EQ 

0 

. (Y, 

Y, 

Y, 

$ 

9 

9 

9 

9 8 ) 

DVASw 

LAND 

MSKSSACQU NQ 

0 

.<Y, 

9 

9 

9 

9 

9 

9 

* 9 ^ 

DVASW 

LAND 

MSKSSTB6D NQ 

0 

»c . 

Y t 

N , 

9 

9 

9 

9 

9 9 ) 

VASPI 

EG 0 




,( . 

9 

9 

Y, 

Y, 

Y, 

Y, 

y.y.y) 

DVASW 

LAND 

MSKSS0NSS NQ 

0 

.< . 

9 

9 

Y, 

9 

9 

9 

» 9 ) 

DVASW 

LAND 

MSKSSSBLO NQ 

0 

.( . 

9 

9 

9 

Y, 

9 

9 

. . ) 

DVASW 

LAND 

MSKSSSBHI NQ 

0 

.( , 

9 

9 

9 

9 

Y, 

9 

9 9 ) 

DVASW 

LAND 

MSKSSS80M NQ 

0 

.< , 

9 

9 

9 

$ 

9 

Y, 

9 9 5 

DVASW 

LAND 

M8KSSECSV NQ 

0 

.( , 

9 

9 

9 

9 

9 

» 

Y. , ) 

DVASW 

LAND 

MSKSSECS 1 NQ 

0 

.( . 

9 

9 

9 

9 

9 

9 

,Y»N) 

actions 













VSC3C0) = 

SST1PTR 


.< . 

9 

9 

Y, 

Y, 

Y, 

Yd 

Y, Y e Y) 

VSC3C1) « 

VASPI 


.( . 

9 

9 

Y, 

Y p 

Y, 

Y, 

Y.Y, Y) 

VSC3C2) » 

VATRR 


,c . 

9 

9 

Y, 

Y, 

Y, 

Y 8 

Y.Y.Y) 

DVASW 

a DVASW 

LXOR MSKSSACQU 

,CY, 

9 

9 

9 

9 

9 

9 

, » ) 

DVASw 

a DVASW 

LXOR MSKSSTB6D 

.< . 

Y, 

9 

9 

9 

9 

9 

, , ) 

DVASW 

a DVASW 

LXOR MSKSSLI 

,( , 

» 

Y, 

9 

9 

9 

9 

, . ) 

DVASW 

a DVASW 

LXOR MSKSSGNSS 

.( . 

i 

9 

Y, 

9 

9 

9 

. . ) 

DVASW 

a DVASW 

LXOR MSKSSSBLO 

.( . 

9 

9 

9 

Y, 

9 

9 

. , ) 

DVASW 

a DVASW 

LXOR MSKSSSBHI 

.( . 

9 

9 

9 

9 

Y $ 

9 

, , ) 

DVASW 

a DVASW 

LXOR MSKSSSBOM 

.( . 

9 

9 

9 

9 

9 

Y, 

, . ) 

DVASW 

a DVASW 

LXOR M3KSST3A 

.< , 

9 

9 

9 

9 

9 

9 

, * Y ) 

SST2PTR - 

LOG* 

SSTGAIN 1 


.(Y, 

9 

9 

9 

9 

9 

9 

, . ) 

SST2PTR = 

LOC 

SSTTB6D 1 


.( . 

Y 9 

9 

$ 

9 

9 

9 

, , ) 

SST2PTR « 

LOC * 

SSTALU* 


,c . 

9 

Y $ 

9 

9 

9 

9 

» . ) 

SST1PTR * 

LOG 

SSTGSS * 


.< , 

9 

9 

Y , 

9 

9 

9 

• * ) 

SST1PTR * 

LOC 1 

SSTSBLO* 


.c . 

9 

• 

t 

Y, 

9 

0 

» . ) 

SST1PTR * 

LOC * SSTSBHI • 


,c . 

9 

$ 

# 

9 

Y, 

9 

, , ) 

SST1PTR * 

LOC * 

SSTSBOM' 


,c . 

9 

9 

9 

9 

9 

Y p 

, » ) 

SST1PTP = 

LOC * SSTECS V 1 


.( . 

9 

9 

9 

9 

9 

i 

Y, , ) 

SST1PTR * 

LOC • 

SSTECS1 » 


,c . 

9 

9 

9 

9 

9 

9 

,Y, ) 

SST1PTR ■ 

LOC* 

83TTB3A 1 


9 ( 9 

9 

9 

9 

9 

9 

9 

, »Y) 

VATR4 

a 0 




.( . 

9 

Y, 

9 

9 

$ 

9 

. , ) 

.SSTUPD (a 

VATR4) "SS T 

UP ' ' 

.(Y, 

Y, 

9 

9 

9 

9 

9 

, , ) 

GOTO 

SS0201 



»(Y, 

Y, 

Y, 

9 

9 

9 

9 

» , ) 

GOTO 

SS 0230 



.( , 

9 

9 

Y, 

Y, 

Y, 

Y $ 

Y.Y.Y) 


ELSE GOTO SS0060 "THIS POINT SHOULD NEVER BE REACHED LOGICALLY" 
END 

FCLS4 » 'INPROG' 

FTADV » * CLASS4 ' 

GOTO SS0235 
VASPI a MSKSSCL3 

. SSTUPO (= VATRR) "UPDATE SS TIME" 

FTADV a 'NORMAL' 

.SS210 ' 'SET UP NEXT SS ' ' 

FHST a 'TEST' 

GOTO SSOOOO 

IF FASE EG 'ALTERNATE' 

THEN FASE a 'NORMAL' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 
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MSS10. 


SS1050. 


MSS20, 


MSS30. 


MSSdO . 


SSdDOO. 


MSS50 . 


RETURN ''SWITCH SELECTOR COMMON RETURN'' 

VASPI ■ 0 
VATRR * 0 

FCLS4 a ' NOTIN PROG' 

PVASW a DVASW LAND MSKSSWV 

.EGP08 ''RESCHEDULE TIMER 1 (NOT CODED)' 

FTADV * 'NORMAL' 

SST 1 PTR a SSTTBPTR (DTBID - 1) 

. SS 2 1 0 ' ' SET UP NEXT SS ' ' 

IF FSSAC EQ 'ACTIVE' BOTO MSS20 

VSSW = KSSB1 
GOTO SS0235 

IF FSSIO ED 'YES' WRITE SS , MSKSSRESET "ISSUE FORCED RESET' 
FHST a 'NOTEST' 

DGSSM » ' S S 0 5 ' 

, SSTUPR (KSSBS) "SCHEDULE SWITCH SELECTOR CHECK" 

VSSW 8 ksshb 
BOTO SSOOftO 
FSSAC ■ 'ACTIVE' 

VSNA, VSNA1 » VSMA RSH 2 LAND MSKSSSNA 
IF VSNA EQ U 

THEN FSSAC a 'INACTIVE' 

.SS201 "ADVANCE SS TABLE, SET UP NEXT SS" 

GOTO SSOOOO 

END 

VSTG » VSNA LAND VPSTG 
IF VSTG EG 0 

THEN FSSIO = 'NO' 

ELSE FSSIO = 'YES' 

END 

IF FHST EQ 'NuTEST' GOTO SS4000 

IF OFLT EG 'REP* BOTO SS4000 

READ SSFB.TEMP "READ SS FEEDBACK REGISTER" 

IF TEMP LAND MSKSSHS EQ 0 GOTO SS4000 

IF FSSIO EQ 'YES' WRITE SS, MSKSSRESET "ISSUE RESET" 

DGSSM a ' S S 4 0 ' 

, SSTUPG (KSSB4) "SCHEDULE STAGE AND ADDRESS ISSUANCE" 

VSSW a KSSB5 
GOTO SS0060 

FOR I a 22 WHILE 1 QR 0 "DELAY BEFORE ISSUING STAGE, ADDR" 

1 = 1-1 

END 

IF FSSIO EQ 'YES' WRITE SS.VSNA "ISSUE STAGE AND ADDRESS' 
DGSSM a • S S 5 0 ' 

. SSTUPQ (VSSW) "SCHEDULE ADDRESS VERIFICATION" 

FOR I = 17 WHILE I GR 0 "DELAY FOR DOM TELEMETRY" 

1 = 1-1 

END 

WRITE DOM "OUTPUT SS AND DO REGS VIA DOM TELEMETRY' 

GOTO SS0060 

VSCCA a VSNA LXO» MSKSSHS 
VSSCA a VSCCA LAND MSKSSHS 
IF VSTG NQ 0 

THEN read SSFB.TEMP "READ SS FEEDBACK REGISTER" 

VSSFB « TEMP LAND MSKSSHS 
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ELSE VSSFB » VSSCA 

END 

IF VSSFB NO VSSCA GOTO SS5540 

N S S 5 5 . IF VASPI LAND MSKSSS4C0 NQ 0 

THEN DFILE a DFILE LOR HSKFPSISSA 
DVSST » 1.E10 

RETURN ' 'MSS50, MSS55 ' ' 

END 

IF VSSRT EU 0 GOTO MSS60 

, SSTUPD (a DVTRB) "UPDATE SS TIME 

IF VSSRT - DVTRB LQ KSSRB GOTO MSS60 

VSSTM » VSSRT - DVTGB - KSSRB 

DVSST « VSSTM + DVTMR 

DGSSM a ' SS60 ' 

IF DFIL3 EH 'INACTIVE' , EGP08 "RESCHED TIMER 1 (NOT CODED)" 
RETURN ' ' MSS50 , MSS55 ' ' 

SS5540. IF VSSFB EQ 0 AND VSSCA NQ MSK8SZFSF GOTO MSS55 

IF FSSIO EO 'YES' WRITE SS , MSKSSRESET "ISSUE RESET" 

DGSSM a ' SSBO ' 

. SSTUPQ (KSSB6) "SCHEDULE COMPLEMENTED STAGE AND ADDRESS" 
TEMP s (VSSCA LXOR VSSFB) LSH 7 
SS5570, IF TEMP LS 0 GOTO SS5580 

TEMP a TEMP LSH 1 
GOTO SS5570 

SS5580. TEMP « TEMP LSH 1 

IF TEMP EO 0 RETURN "MSSSO" 

0VMC4 a 0VMC4 LOR MSKMC4SSCB 
IF FFHCh EQ ’GHANA' 

THEN FFHCH a ' CHANB * 

WRITE ICR.MSKICRSSCB "SWITCH TO CHANNEL B" 

DV ICR a DVICR LOR MSKICRSSCB 

END 

, UTR30 "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE TELSSFb, VSSFB "TELEMETER SS FEEDBACK" 

PETURN ' 'MSSSO, MSS55' ' 

MSS*0. TEMP a VSTG LXOR MSKSSREAD 

IF FSSIO EQ 'YES' WRITE SS.TEMP "ISSUE READ COMMAND" 

READ CLOCK, TEMP "READ REAL TIME CLOCK FOR SS TELEMETRY" 

DGSSM a * SS70 ' 

.SSTUPQ (KSSB2) "SCHEDULE READ RESET" 

TEMP a V S N A I SH 2 LOR TEMP LAND MSKRTC 
, UTR30 "DELAY FOR TELEMETRY AS REQUIRED" 

WRITE. TELSSSA , TEMP "TELEMETER STAGE/ ADDRESS AND READ TIME" 
IF DFACQ NQ 'GAIN' "COMPRESS DATA BETWEEN STA. (NOT CODED)" 
THEN . MPC80 (DVDCT MSKKSDCT) "COMP TIME AND TAG" 

. MPC80 ( VSNA RSH 3 + MSKSSDCS) "COMP STAGE, ADD" 

END 

IE VASPI LAND’ MSKSS4C0 NQ 0 
THEN VASPI a 0 

DFILE » DFILE LOR MSKFPSCORD 

FND 

CONDITIONS 

VSNA1 EQ MSKSSHIG ,(Y, , , , ) 

VSNA 1 EQ MSKSSLOG , ( , Y, , , ) 

VSNA1 EQ MSKSSOMG , , Y, , ) 


- 122 - 



MSS70. 


M S S « 0 . 


proc 

entrance 
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VSNA1 EQ 

MSKSSSI VR 

9 ( 9 

9 

• 

Y, 

Y) 

FBRM fe'Q 

'FIRST' 

.( . 

9 

9 

Y, 

N) 

ACTIONS 

DVMC7 = 

L) VMC7 

LOR MSKMC7HIG 

, CY, 

$ 

9 

1 

) 

DVMC7 = 

DVMC7 

LOR MSKMC7L0G 

,C » Y 

9 

9 

9 

) 

DVMC7 * 

DVMC7 

LOR MSKMC70MG 

9 C • 

9 

Y, 

9 

) 

DVMC5 = 

DVMC5 

LOR M3KMC54B1I 

9 C 1 

9 

9 

Y, 

) 

DVMC6 « 

DVMC6 

LOR MSKMC68BRI 

.( » 

9 

9 

9 

Y) 

ELSE RETURN 
END 

RETURN • ' MSS60 ' 

IF FFSIO EQ 'YES' 

« 

WRITE SS,0 • 

•RESET 

RE 

AO 

COMMAND ' 


DGSSM s ' SSOb ' 

, SSTUPQ (KSSH3) ’'SCHEDULE HUNG STAGE TEST'' 


.SS201 "ADVANCE SS TASLE, SET 

vssw c kssbi 

IF VHSTw LAND VSTG EQ VSTG 
THEN FHST s 'NOTEST' 

ELSE FHST = 'TEST' 

END 

CONDITIONS 

UP NEXT 

SS » • 

VSN A 1 EQ mSKSSWVO 

9 C Y % t 

) 

VSNA1 Ely M SKSSWVC 

9 (■ 9 Y $ 

) 

VSN A 1 EQ MSKKSSSCC 
ACTIONS 

9^9 9 

Y) 

DVASW s DVASW LXOR MSKSSECS1 

,(Y, , 

) 

DVASW = DVASW LXOR MSKS3ECSV 

.( , Y, 

) 

OFW V = 'OPEN* 

, (Y, , 

) 

DFw V = 'CLOSE' 

9 C 9 Y 9 

) 

D V D P M = DVOPM LOR MSK0IN9 
ELSE RETURN "MSS70" 

END 

RETURN ' ' MSS70 ' ' 

V SN A = VSCCA 

9(9 9 

Y) 

IF FSSIO EQ ' YFS ' WRITE SS,VSNA 

DGSSM s ' SS55 ' 

• 'ISSUE 

ST AGE/COMP t APOR 


. SSTUPQ (KSSR7) ''SCHEDULE THE READ COMMAND'' 

FOR I « 41 WHILE I GR 0 ''DELAY FOR DOM TELEMETRY" 
1 = 1-1 


i t 


END 

WRITE DOM "OUTPUT SS AND DO REGS VIA DOM TELEMETRY" 

RETURN "MS880" 

. SS20 1 "SS TARLE ADVANCE ROUTINE" 

. SS2 1 0 "SS SETUP ROUTINE" 

IF FTADV EQ 'NORMAL' 

THEN SST1PTR = SST1PTR ♦ 2 GOTO SS202CI 

ELSE SST2PTR = SST2PTR + 2 GOTO SS2160 


END 

IF FTADV £U 'NORMAL' GOTO SS2020 

IF IND(SST2PTR) GO 0 GOTO SS2070 

FCLS4 = ' NOTINPROG • 

DVMCS = DVMC6 LXOR MSKMC6LUI 
DVMC7 = DVMC7 LXOR MSKMC7T6D 
GOTO SS2090 

IF IND(SSTIPTR) GO 0 GOTO SS2030 
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EXIT 

PkOC 

PROC 

TERM 


conditions 

VASPI 

VASPI 

VASPI 

FTbOP 

ACTIONS 

VASPI 


LAND MSKSS8PEC NQ 0 
LAND MSKSSCL3 NQ 0 
LAND MSKSSCL1 NQ 0 
EQ 1 PASS 1 ' 


NSKSSS4C0 
VASPI = VSC3C1) 

VASPI = vscicn 
VASPI = 0 
VATRP = VSC3C2) 

VATRR * VSC1 (2) 

VATPR « 0 

DVASW s DVASW LAND M3KSSWV 
FTbOP = 1 P ASS2 1 
SST1PTR = LOC'SSTSIVB' 
SST1PTH = VSC3 ( 0 ) 

SST1PTR = VSCl(O) 

SST1PTR = LOC ' SSTTB5 A ' 
SST1PTR s LOC ' SS-TTB5B ' 


(Y 

( 

( 

( 

(Y 

( 

C 

C 

( 

( 

( 

(Y 

( 

(Y 

( 


GOTO SS2020 ' 'THIS POINT 


,( 

»C 

, c 

SHOULD 


ELSE 
END 

GOTO SS2P20 

SS2030. IF FCLS4 EQ 'INPROG' 

SS2D40. VSSRT ■ I NO ( SST 1 PTR ) *KCSR + VATRR 
VSNA » INDCSSTIPTR, 1) 

SS2050. VHSTn = VSNA RSH 2 LAND MSKSSSS8 
RETURN "SS201, SS210, SS2110, 
SS2070. IF IND(SST1PTK)*KCSR*VATRR-KSSCK 
THEN FTADV * ' CL ASS4 ' 


NEVER BE 


) 

) 

) 

N) 

I 
) 

) 

Y) 

) 

) 

Y) 

) 

) 

) 

) 

) 

) 

Y) 

REACHED 


LOGICALLY ' • 


GOTO SS2070 


SS2160 ' ' 


GQ IND(SST2PTR1*KCSR+VATR4 



VSSRT b IND(SST2PTR)*KCSR + VATR4 
V SNA » IM0(SST2PTR, 1) 



GOTO SS2U50 



S32090. 

ELSE FTADV a 'NORMAL' 



GOTO SS2040 




END 



EXIT 

♦ • SS20 1 , SS21 0 1 • 



P ROC 

• SSTUPD (= TIMED ■ ' 

ITEM TIME FIXED -2 

'UPDATE SWITCH SELECTOR TIME 

• i 

E»^n o ata 

READ CLOCK, TEMP « 1 

'READ REAL TIME CLOCK • ■ 



TIME, DVTRB = DVTGB + 

DVTRR ♦ (TEMP - DVRTC LAND 

MSKRTC) RSH 2 

F X I T 

• 1 SSTUPD 1 * 



PKOC 

.SSTUPQ (BIAS) M 

ITEM BIAS FIXED -2 

'UPDATE SS TIME AND SCHEDULE 

SS FUNCT. ' ' 

ENOPATA 

READ CLOCK, TFMP • 1 

'READ REAL TIME CLOCK • » 



DVTRB = DVTGP + OVTRR ♦ (TEMP - DVRTC LAND MSKRTC ) RSH 2 
VSSTM b BIAS ♦ DVTRR * (TEMP - DVRTC LAND MSKRTC) RSH 2 
DVSST = VSSTM + DVTMR 

IF DFIL3 EQ 'INACTIVE' . EGP08 ''RESCHED TIMER 1 (NOT CODED)'' 
' ' SSTUPQ ' ' 

. EGP08 EXTERNAL EXIT 

. MPC80 EXTERNAL EXIT 

' ' MSSOO ' ' 


- 124 - 



preceding 


page blank, not fumed 


SPL KERNEL 11 ATM TASK KEYING 


START .TASKKEY ( PR I OR IT Y , TSKPTR ) ''ATM TASK KEYING ROUTINE'' 

ITEM PRIORITY INTEGER "PRIORITY LEVEL OF TASK BEING KEYED" 
ITEM TSKPTR LOCATION "POINTER TO TASK BEING KEYED" 

ITEM CHAIN LOCATION "OVERFLOW CHAIN POINTER" 

ITEM SLOT LOCATION CONSTANT = LOC ' ATMPCVFT ' 

i i 

"PRIORITY CONTROL TABLE CONTAINS ONE ENTRY FOR EACH SYSTEM 
"PRIORITY LEVEL. FOR EACH ENTRY THERE ARE FIVE ITEMS. 

" 1. LOCATION POINTER TO THE NEXT EXECUTABLE INSTRUCTION 

" OF THE TASK CURRENTLY ASSIGNED TO THAT PRIORITY LEVEL 

'• OR ZERO IF NO TASK IS CURRENTLY ASSIGNED. 

" 2 . ) 

" 3. ) TASK REGISTER CONTENTS (INITIALLY SET TO ZERO). 

" 4 . ) 

" 5. POINTER TO THE BEGINNING OF THE PRIORITY OVERFLOW 

" TABLE CHAIN FOR THAT PRIORITY LEVEL. A VALUE OF ZERO 

" INDICATES END OF CHAIN, 

i i 

" NOTE THE NUMBER OF REGISTERS SAVED FOR A TASK WAS ARBITRARI- 
" LY CHOSEN FOR THIS EXAMPLE AND MAY BE ADJUSTED AS 

' ' REQUIRED. 

TABLE ATMpCT 10 SERIAL 5 

(ATMTSKPTR LOCATION, 

ATMTSKREG1 LOGICAL, 

ATMTSKREG2 LOGICAL, 

AT M TSKPEG3 LOGICAL, 

ATMIIVFPTR LOCATION) 

i < 

"THE PRIORITY OVERFLOW TABLE IS USED FOR KEYING TASKS ON A 
"PRIORITY LEVEL HHICH IS CURRENTLY ASSIGNED TO ANOTHER TASK. 
'•THE ENTRIES ARE NOT ALLOCATED TO A FIXED PRIORITY BUT ARE 
' 1 ASSIGNED DYNAMICALLY AS REQUIRED. ALL OVERFLOW ENTRIES FOR 
"EACH PRIORITY LEVEL ARE CHAINED TOGETHER SUCH THAT THE TASKS 
"CAN BE EXECUTED ON A FIRST-IN-FIRST-OUT BASIS. EACH ENTRY 
' 'CONSISTS OF TWO ITEMS. 

" 1. POINTER TO NEXT ENTRY IN THE CHAIN. A VALUE OF ZERO 

" INDICATES END OF CHAIN. 

" 2. LOCATION POINTER TO THE BEGINNING OF THE TASK FOR 

" THAT ENTRY. A VALUE OF ZERO INDICATES THAT THE ENTRY 

" IS CURRENTLY NOT ASSIGNED TO AMY TASK. 

« t 

TABLE ATMPOVFT 25 SERIAL 2 

(ATMOVFPTR LOCATION, 

ATMTSKPTR LOCATION) 

Fi'vDD ATA 

LOCK "INHIBIT ALL INTERRUPTS" 

i » ' 

"IF THE REQUESTED PRIORITY LEVEL IS NOT CURRENTLY ASSIGNED, 
"INITIALIZE THE ENTRY FOR THIS TASK. 

t • 

IF ATMPCT' ATKTSKPTR(PRIORITY) EQ 0 

THEN ATMPCT' ATMTSKPTR(PRIORITY) * TSKPTR 
ATMTSKR EG 1 (PRIORITY) fl 
ATMTSKREG2CPRIORITY) , 


* i 
i i 
i i 

• i 
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SPL KERNEL 11 


ATM TASK KEYING 


ATMTSKPEG3CPRI0RITY) p 0 

i i ii 

• ‘OTHERWISE, SEARCH FOR THE END OF THE OVERFLOW POINTER CHAIN. '• 

ii it 

ELSE CHAIN = LOC'ATMPCT' ATMOVFPTR(O) ' + 5*PKI0RlTY 
CHNSRCH. IF 1 NO (CHAIN) NQ 0 

THEN CHAIN « I ND ( CH A I N ) 

GOTO CHNSRCH 

i ‘ it 

••WHEN THE END OF THE OVERFLOW POINTER CHAIN HAS BEEN '* 

’’FOUND, SEARCH FOR AN EMPTY SLOT IN THE OVERFLOW TABLE. *• 

it ii 

ELSE FOR I * 0 BY 2 UNTIL BO 

IF I ND ( SLOT , 1 + 1) EQ 0 GOTO SL.TFND 
END WAIT • 1 STOP IF OVERFLOW TABLE FULL ' • 

i» i» 

M ADD THIS ENTRY TO THE END OF THE OVERFLOW POINTER CHAIN AND 
'•STORE THE TASK POINTER IN IT. ♦' 

• » it 

SLTFND. I ND (CHAIN) a SLQT ♦ I 

INDCSLOT, I) a o 
I ND (SLOT f 1 4-1 J = TSKPTR 

END 

END 

UNLOCK 

RETURN • '» TASKKEY ’ • 

TERM i • TASKKEY • 1 
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ppr.rnDTKG 


VUSB ****** 10300 


CLASP COMMON DATA DECLARATIONS 


START 

1 

CLASP KERNELS » • 

DECLARE FIXED, 


DKRTCSEC 

10 CONSTANT * 4063.492, 

DKMIR 


0 CONSTANT * . 040*DKRTCSEC , 

DKTD 


0 CONSTANT = .00413^DKRTCSEC, 

DKT 1 


10 , 

DLPRLC3) -2 

CONSTANTS (50. ♦DKRTCSEC, 60. ♦DKRTCSEC, 100 

, DLPTL 

(3) 

-2 , 

DLTTL 

(12) 

-2 , 

DVACT 


0 , 

D V A 1 


4 , 

D V A 2 


4 , 

D V A3 


4 , 

DVA4 


4 , 

DVA5 


4 , 

DVA6 


4 f 

DVCA 

(3) 

2b , 

DVCC 

(3) 

2b , 

DVpC 

(3) 

13 , 

DVDA 

(3) 

7 , 

DVDR 

(3) 

7 , 

DVDC 

(3) 

2b , 

DVDR 

(3) 

11 , 

DVDT 


23 , 

DVEOF 


2b , 

dvert 


0 # 

DVF 

(3) 

7 , 

DVFMC 


19 , 

DVFCIM 


19 , 

dvfdr 


-1 , 

dvg 

(3) 

21 , 

dvmas 


3 , 

ovhfr 


5 , 

dvmld 


0 , 

DVMLR 


19 , 

dvmlt 


-2 , 

DVMD5 


0 , 

DVM06 


o , 

DVPTG 


-2 t 

DVRC 

(3) 

7 , 

DVRTC 


0 , 

DVSST 


-2 , 

DVTAS 


10 , 

DVTB 


10 , 

DVTD 


o , 

DVTEX 


o , 

DVTGB 


-2 , 

OVTH 

(3) 

25 ■, 

D VTI 


10 , 

dvtmm 


-2 , 

DVTMR 


-2 , 

DVTRR 


-2 , 

DVTRR 


-2 , 

DVTRS 


•2 , 

DVTT1 


0 , 


X 

X 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 
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CLASP COMMON DATA DECLARATIONS 


DVVSQ 3 , 

DV1MR 25 , 

DV2TG -2 , 

TEMP TEMP , 

TEMPI TEMP 

DECLARE INTEGER, "NUMERIC INTEGER DATA" X 

DFLT , X 

DGMLM . , • X 

DGSSM , X 

DGST2 , X 

DQST2 , X 

DTBID , X 

DVDGS , X 

DVHDA , X 

DVHDB , X 

DVLRC . , X 

D VP , X 

DVRE (3) , X 

EPTINDX , X 

GST1M 

DECLARE BOOLEAN, X 

APSTAT , X 

ARSTAT , X 

CC1STAT , X 

CSSTAT , X 

CTSTAT , X 

DFACO , X 

DFDBF , X 

DFDTL , X 

DFIL1 , X 

DFIL2 , X 

DFIL3 , X 

DFPHC , X 

DFSMC , X 

DFTBCER , X 

DFTUP , X 

DFWV , X 

DFZER , X 

PKAPI (4) , X 

DTSTAT , X 

DPSTAT , X 

DVSTAT , X 

EBSTAT , X 

HSSTAT , X 

IGSTAT , X 

MSSTAT , X 

NESTAT , X 

OGSTAT , ' X 

PASTAT , X 

POST AT , X 

PPSTAT (3), X 

RSSTAT , X 

SASTAT , X 

TB1STAT , X 

TB57ST AT , X 


- 130 - 


X X X X 



CLASP COMMON DATA DECLARATIONS 


TCSTAT , 

TGSTAT , 

TTSTAT , 

T2STAT (11) 

DECLARE INTEGER, ''LOGICAL INTEGER DATA 1 ' 

DFILE , 

OFMDI , 

D V AC (3) , 

DVASW , 

nvDPM , 

DVEMK 

DVICR 

DVIH 

DVLDB , 

DVMC4 

DVMC5 , 

DVMC6 , 

DVMC7 , 


mskablad 

CONSTANT 

SO 

'oooooiooo 


mskacca 

CONSTANT 

*0 

'777700000 


MSKACQB 

CONSTANT 

= 0 

' 000 017776 


MSKOIN9 

CONSTANT 

*0 

' 000004000 


MSKDCSCK 

CONSTANT 

*0 

' 774000000 


MSKDCSDG 

CONSTANT 

aO 

•000040000 


MSKDCSER 

CONSTANT 

SO 

'000077776 


MSKDCSMC 

CONSTANT 

«0 

'770000000 


MSKPCSMD 

CONSTANT 

= 0 

' 000000020 


MSKDCS3B 

constant 

= 0 

' 004000000 


mskdcstr 

CONSTANT 

= 0 

'200000000 


MSKEMRLB 

CONSTANT 

*0 

' OOOOOIOOO 


MSKERT AR 

CONSTANT 

30 

' 000070000 


mskfmrfr 

CONSTANT 

*0 

' oooi onooo 


MSKFPSCR 

CONSTANT 

>0 

' loonooooo 


MSKFRS12 

CONSTANT 

= 0 

' 000040000 


MSKFPSIS 

CONSTANT 

■ 0 

' omoooooo 


mskgima 

CONSTANT 

30 

'377700000 


MSKICRBG 

CONSTANT 

= 0 

'000000020 


NSK I CRC A 

CONSTANT 

■ 0 

♦ 000040000 


MSKICRSB 

CONSTANT 

*0 

*000010000 


MSKICRSR 

CONSTANT 

so 

'000002000 


HSKINT 

CONSTANT 

SO 

' 157740000 


MSKM180D 

CONSTANT 

*0 

'377777776 


MSKM4A M F 

CONSTANT 

SO 

' 000000100 


MSKM4SSB 

CONSTANT 

*0 

♦OOOOOIOOO 


MSKM54B 1 

CONSTANT 

so 

'000000100 


MSKM6D04 

CONSTANT 

= 0 

1 000000400 


MSKM6LUI 

CONSTANT 

= 0 

' ooonioono 


MSKM6T 6 A 

•CONSTANT 

®0 

' 000002000 


MSKM6T6B 

CONSTANT 

SO 

' 000000010 


MSKMftT 6C 

constant 

*0 

1 000000040 


MSKM68BR 

constant 

= 0 

*400000000 


MSKM7HI6 

constant 

= 0 

' 004000000 


MSKM7LOG 

CONSTANT 

= 0 

*010000000 


MSKM70MG 

CONSTANT 

sQ 

' 020000000 


MSKM7T6D 

constant 

SO 

* loooooono 



X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 
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CLASP common data declarations 


MSKRTC 

CONSTANT 

■ O 

•000037776' , 

X 

MSKRTCRS 

CONSTANT 

■ 0 

'007777540', 

X 

MSKSCCO 

CONSTANT 

*0 

' 000100000 ' , 

X 

MSKSSACO 

constant 

= 0 

' 000000004 ' , 

X 

MSKSSCL 1 

CONSTANT 

*0 

' 040000000 ' , 

X 

MSKSSCL3 

CONSTANT 

■ 0 

' 100000000 ' , 

X 

MSKSSCS1 

CONSTANT 

■ 0 

'000003770' , 

X 

MSKSSCS3 

CONSTANT 

80 

' 077774000 ' , 

X 

MSKSSDCS 

CONSTANT 

= 0 

•500000000', 

X 

MSKSSOCT 

CONSTANT 

« 0 

' 405400000 ' , 

X 

MSKSSECV 

CONSTANT 

SO 

' 002000000 ' , 

X 

MSKSSEC 1 

CONSTANT 

*0 

' 001000000 ' , 

X 

MSKSSEND 

CONSTANT 

■ 0 

•377777776' , 

X 

MSKSSGMS 

CONSTANT 

*0 

'040000000' , 

X 

MSKSSHIG 

CONSTANT 

«0 

' 100720000 ' , 

X 

MSKSSHS 

CONSTANT 

8 U 

'003770000 ' , 

X 

MSKSSLI 

CONSTANT 

so 

' 000000002 ' , 

X 

MSKSSLOG 

constant 

80 

' 100520000 ' , 

X 

MSKSSOMG 

CONSTANT 

80 

' 100070000 ' , 

X 

MSKSSRD 

CONSTANT 

*0 

'400000000' , 

X 

MSKSSRS 

CONSTANT 

so 

' 200000000 ' , 

X 

MSKSSSBH 

CONSTANT 

80 

'010000000 ' , 

X 

MSKSSSBL 

CONSTANT 

80 

' 020000000 ' , 

X 

MSKSSSBO 

CONSTANT 

80 

' 004000000 ' , 

X 

MSKSSSCC 

CONSTANT 

80 

' 100310000' , 

X 

MSKSSSN A 

CONSTANT 

80 

' 135770000 • , 

X 

MSKSSSPC 

CONSTANT 

*0 

'200000000', 

X 

mskssssb 

CONSTANT 

SO 

'174000000 ' , 

X 

MSKSSS4B 

CONSTANT 

ao 

' 020230000 ' , 

X 

MSKSSS4C 

CONSTANT 

80 

'400000000', 

X 

MSKSSS4 1 

CONSTANT 

80 

'000000400', 

X 

MSKSST3A 

CONSTANT 

■ 0 

' 000400000 ' , 

X 

MSKSST6 

CONSTANT 

80 

•004000000 ' , 

X 

MSKSST6A 

constant 

a 0 

' 000002000 ' , 

X 

MSKSST6B 

constant 

80 

•000001000', 

X 

MSKSST6C 

CONSTANT 

80 

' 100000000' , 

X 

MSKSST6D 

CONSTANT 

SO 

' 000200000 ' , 

X 

MSKSSNV 

CONSTANT 

80 

' 003000000 ' , 

X 

MSKBSWVC 

CONSTANT 

SO 

'101050000 ' , 

X 

MSKSSWVO 

CONSTANT 

so 

' 101450000 ' , 

X 

MSKSSZFS 

CONSTANT 

SO 

' 002000000 ' , 

X 

MSKTMCO 

CONSTANT 

*0 

'700000000 ' , 

X 

MSKTMC1 

CONSTANT 

SO 

'710000000' , 

X 

MSKTMC2 

CONSTANT 

»Q 

•720000000' , 

X 

MSKTMC3 

CONSTANT 

so 

•730000000 ' , 

X 

MSKTMC4 

CONSTANT 

= 0 

'740000000' , 

X 

MSKT2INT 

CONSTANT 

a 0 

' 100000000 ' , 

X 

MSK180DG 

CONSTANT 

so 

'400000000' » 

X 


VTMC X 

VTOLD 
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CLASP UTILITY routines 


PROC .UTROO ''TELEMETRY DELAY FOR MODE REG SETTING OF 70*' 

VTMC = MSKTMCO 

. UTPO ''PERFORM DELAY AS RFQUIRED' ' 

EXIT ' 'UTROO' ' 

PROC .UTR01 ''TELEMETRY DELAY FOR MODE REG SETTING OF 71" 

VTMC * MSKTMC1 

.UTRO "PERFORM DELAY AS REQUIRED" 

FXIT "UTR01" 

PROC .UTR02 "TELEMETRY DELAY FOR MODE REG SETTING OF 72" 

VTMC - MSKTMC? 

.UTRO ''PERFORM DELAY AS REQUIRED" 

EXIT "UTR02" 

PROC .UTR03 "TELFMETRY DELAY FOR MODE REG SETTING OF 73" 

VTMC = MSKTMC3 

.UTRO ..PERFORM DELAY AS REQUIRED" 

EXIT ' ' UTR03 ' ' 

PKOC .UTR04 "TELEMETRY DELAY FOP MODE REG SETTING OF 74" 

VTMC * MSKTMC4 

.UTRO "PERFORM DELAY AS REQUIRED" 

EXIT ' ' UTR04 ' ' 

PKOC .UTRO "TELEMETRY DELAY FOR LEVEL 0'' 

DECLARE FIXED 0, 

V T I M , 

KTELBIAS CONSTANT = 2. 

TROD, LOCK T1 INT,T2INT,EXlINT,FX2INT,EX3INT,EX4lNT,FXbINT,EX6INT, X 

EX7INT ,EX8IMT,EX9INT 
DIRECT 

• 'read clock into vtim' • 

FND 

IF VTIM - DVTD LAND MSKRTC GQ DKTD THEN GOTO TR05 END 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

"ALLOW HIGH PRIORITY TASKS TO INTERRUPT" 

GOTO TRO'O 
TROB. DIRECT 

"SET MODE PEG WITH CONTENTS OF VTMC" 

END 

DVTD = VTIM + KTELBIAS 
EXIT ' 'UTRO' ' 

PROC . U T R 3 0 "TELEMETRY DELAY FOR INTERRUPT LEVEL 3" 

DECLARE FIXEn 0, 

KTELBIAS CONSTANT = 2. , 

VTIM 

TK35. DIRECT 

' 'READ CLOCK INTO VTIM' ' 

END 

IF VTIM - DVTD LAND MSKRTC LS DKTD THEN GOTO TR35 END 

DIRECT 

"SET MODE' REG WITH MSKTMCO" 

END 

DVTD * VTIM + KTELBIAS 
EXIT "UTR30" 

PROC . UTR24 "TELEMETRY DELAY FOR INTERRUPT LEVEL 2" 

DECLARE FIXED 0, 

KTELBIAS CONSTANT » 2. , 

VTIM 
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TR20. 

TP2f>. 

EXIT 


CLASP UTILITY ROUTINES 


LOCK TlINT,T2INT,EXlINT f EX2INT,EX3INT,EX4INT,EX5INT,EX6INT 
EX7INT.EX8INT.EX9INT 
DIRECT 

' 'READ CLOCK INTO VTIM' • 

END 

IF VTIM - DVTD LAND MSKRTC GQ DKTD THEN GOTO TR25 
UNLOCK T 1 1 NT 
GOTO TR20 
DIRECT 

"SET MODE REG WITH MSKTMC4" 

END 

DVTD ■ VTIM + KTELBI AS 
"UTR24" 


X 


END 



CLASP KERNEL 1 


INITIALIZATION 


EGPP. 


LOOP. 


PROC . 


EXIT 
PROC . 

GP0020 


•'SYSTEM INITIALIZATION'' 

LOCK TLCINT T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT, X 
EX6IMT,EX7INT,EX8INT, EXPINT 
DIRECT 

•'READ X ACCELEROMETER INTO VOAC(O)" 

'•READ Y ACCELEROMETER INTO VOAC(l)" 

•'READ Z ACCELEROMETER INTO VO AC (2 ) ' ' 

'•READ REAL TIME CLOCK INTO D V AC T ' ' 

END 

IF DFMDI LAND MSKFMRFP 
THEN ON HINT 
DIRECT 

••READ REAL TIME CLOCK INTO DV ACT ' * 

END 

LOCK T1.INJ 
TEMP = 0 
END 

TEMP c 1 
DIRECT 

' 'LOAD TIMER 1 WITH 1 BIT' ' 

END 

UNLOCK HINT 

IF TEMP THEN GOTO LOOP. END 

END 

DFIL1,DFIL2,DFIL3 = TRUE 
DVRTC,DVTEX, VPPOT ■ DVACT 

DVTMM, DVTRR, OVERT, DVTGR,DVTRS f DVTMR,DTRID,VTD s 0. 

.EGP1 ''ACTIVATE INTERRUPT PROCESSOR CHROMIC STATEMENTS'' 

UNLOCK TLCINT 
FGNC » FALSE 
DVSST = 1.E10 
DVMLT, DVMLD = DKMIR 

.EGP15 ''SCHEDULE FIRST TIMER' 1 FUNCTION'' 

D VP * 1 

.GP0Q2 ''PASS CONTROL TO PHASE ACTIVATION ROUTINE'' 

MPAOO ''PHASE TERMINATION ROUTINE’’ 

DFPHC « TRUE 

LOCK TLCINT,T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT, X 
EX6INT , E X 7 1 N T ,EX8INT , E X 9 1 N T 
DIRECT 

•'LOAD TIMER 2 WITH 
' 'RESET ANY PENDING 

END 

DFIL1, DFIL2 = TRUE 
UNLOCK TLCINT, HINT 
. GP002 ' ' ACTIVATE 

• ' MPAOO ' ' 

GP002 ' 'MISSION PHASE 

DECLARE BOOLEAN, FGNC 
DECLARE FIXED, VTD 10 
. IF D VP GR 4 THEN STOP 
IF DKAPI (DVP - 1) 

THEN .EGP20 "START PHASE TIME REFERENCE" 

GOTO (INP13, INP24, INP13, INP24, *) DVP - 1 
ELSE DVP * DVP + 1 


A LARGE VALUE ' ' 

TIMER 2 INTERRUPT ' ' 

THE; NEXT MISSION PHASE" 

ACTIVATION AND CONTROL ROUTINE" 

END 
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CLASP KERNEL 1 INITIALIZATION 


GOTO GP0020 

END 

INP13. ARSTAT,APSTAT,DP8TAT,NESTAT,CC1STAT,MSSTAT,EBSTAT ■ TRUE 

SASTAT,DVSTAT,TCSTAT,PASTAT,TTSTAT,IRSTAT,HSSTAT,OGSTAT, X 

TGSTAT,RSSTAT,CSSTAT,TBISTAT,TB57STAT,PGSTAT * FALSE 
DLPTL (*) » 0. 

PPST AT (*) » FALSE 
T2STAT (*) = FALSE 
T2STAT ( 0 ) * TRUE 

MINOO ''PERFORM PHASE 1/3 APPLICATION PGM IHIT (NOT CODED)'' 
.EGP18 ''SCHEDULE NEXT TIMER 2 FUNCTION'' 

DFIL1, DFIL2, DFIL3, DFPHC « FALSE 

UNLOCK ''RELEASE PREVIOUSLY ENABLED INTERRUPTS'' 

, NINTSEQ 1 ''PASS CONTROL TO PHASE 1/3 NON-INTERRUPT SEQ'' 

T N P ? 4 . CTST AT , DTST AT = FALSE 
DLPTL (*) » 0. 

PPST AT (*) = TRUE 

T2STATC0) ,T2STAT(4) ,T2STAT(5) « FALSE 

T2STAT(1),T2STAT(2) , T2ST A T ( 3 ) , T2ST AT ( 6 ) , T2ST AT ( 7 ) , T2ST AT ( 8 ) , X 
T2ST AT ( 9 ) , T2ST AT (10) « TRUE 

.MIN10 ''PERFORM PHASE 2/4 APPLICATION PGM INIT (NOT CODED)'' 
.EGP18 "SCHEDULE NEXT TIMER 2 FUNCTION" 

DFIL1,DFIL2,DPIL3, DFPHC » FALSE 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

.NINTSEG2 "PASS CONTROL TO PHASE 2/4 NON-INTERRUPT SEQ" 

EXIT "GP002" 
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CLASP KERNEL 2 


interrupt PROCESSING 


PHOC . EGP 1 •' INTERRUPT PROCESSOR*' 

OPTIMIZE T I ME ( 2 0 ) 

ii " 

'•RESPONSE FOR TI.C INTERRUPT M 

ii ' ' 

ON TLCINT 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EXSINT,EX6INT, X 
EX7INT , E X 8 1 N T ,EX9INT 
DIRECT 

••READ REAL TIME CLOCK INTO OVTEX" 

END 

DFIL2, D F I L 3 * TRUE 

.MTSOO ''PROCESS TLC INTERRUPT (NOT CODED)'' 

•'THE TLC APPLICATION PROGRAM DOES NOT RETURN CONTROL 11 

END 

ii ' ' 

''RESPONSE FOR TIMER 1 INTERRUPT '' 

II ' ' 

ON T 1 1 NT 

LOCK T1INT.T21NT,EX1INT,EX2INT,EX3INT,EX4INT,EXSINT,EX6INT, X 
EX7INT , E X B I n T , E X 9 1 N T 
DIRECT 

''READ REAL TIME CLOCK INTO D V T T 1 ' ' 

END 

DFIL3 * TRUE 

GOTO ( ,GP11,GP12) GST 1 M 

.MMLOO ''FLIGHT SIM MINOR LOOP" $ GOTO EGP11 

GR 1 1 . . M M i_ 2 0 "NORMAL MINOR LOOP" $ GOTO EGP11 

GR12. . MSSOO "SWITCH SELECTOR PROCCESSOR" 

EGP 1 1 . .EGP15 "SCHEDULE NEXT T1 FUNCTION" 

DFIL3 = FALSE 

UNLOCK " RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

ii " 

"RESPONSE FDR TIMER 2 INTERRUPT " 

i i 

ON T2INT 
LOCK T2INT 
DFIL1 = TRUE 

GOTO (EGP12.GP21 , GP22 , GP23 , GP24 , GP25, GP26 , GP27 , GP28 , GP29 , GP30 , X 
G P 3 1 ) DOST? 

.MUMOO "TIME UPDATE (NOT CODED)" $ GOTO EGP12 

. MLR 1 0 "LADDER RAMP PROCESSOR (NOT CODED)" S GOTO EGP 1 2 

.MEPOO "EVENTS PROCESSOR" $ GOTO EGP12 

. MTT 1 0 "TIME TILT GUIDANCE (NOT CODED)" $ GOTO EGP12 

.MNO00 "NAVIGATION UPDATE IMPL (NOT CODED)" $ GOTO EGP12 

.MEEOO "TIME BASE 8 ENABLE (NOT CODED)" S GOTO EGP12 

.MCMOO "PHASE 2/4 CONTROL MOD (NOT CODED)" $ GOTO EGP12 

.MCMIO "PHASt 2/4 CONTROL MOD (NOT CODED)" $ GOTO EGP 12 

.MCM20 "PHASE 2/4 CONTROL MOD (NOT CODED)" $ GOTO EGP 12 

.MEPRM "HATER METHANOL ACTIVATE (NOT CODED)" $ GOTO EGP 1 2 
.MEROO "EXTRA ACCELEROMETER RD (NOT CODED)" 

.EGP 1 8 "SCHEDULE NEXT T2 FUNCTION" 

DFIL1 = FALSE 
UNLOCK T2INT 


GP21. 
GP22. 
0P23. 
GP24 . 

0 P 2 5 . 
OP2S. 
NP27 . 
GP28. 
GR29. 
GP3fi. 
GP31. 
FbP) 2. 
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END 

• • ii 

"RESPONSE FOR EXTFRNAL 2 INTERRUPT " 

it ii 


ON EX2INT 

LOCK T1INT,T2INT,EX1INT,EX2INT # EX3INT,EX41NT,EX5INT,EX6INT, X 
EX7INT,EX8INT,EX9INT 
DIRECT 

"READ REAL TIME CLOCK INTO DVTEX" 

END 

DFIL2 , DFIL3 « TRUE 

, MDP28 "SC INITIATION OF S2/S4B SEPARATION (NOT CODED)" 
DFIL2, DFIL3 * FALSE 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 


• • 

"RESPONSE FOR EXTERNAL 4 INTERRUPT 

• i 


i • 
i i 

i i 


ON EX4TNT 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, X 
EX7INT, EXBINT, EX9INT 
DIRECT 

"READ PEAL TIME CLOCK INTO DVTEX" 

END 

DFIL2, DFIL3 » TRUE 

, MTB50 " S4B ENGINE OUT (NOT CODED)" 

DFIL2, DFIL3 * FALSE 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

• • ii 

"RESPONSE FOR EXTERNAL 5 INTERRUPT " 

i» ii 


ON EX5INT 

LOCK T II NT ,T2INT ,EX 1INT ,EX2INT ,EX3INT ,EX4INT ,EXt>INT,EX6INT, X 
EX7INT, EXBINT, EX9INT 
DIRECT 

"READ REAL TIME CLOCK INTO DVTEX" 

END 

DFIL2, DFIL3 = TRUE 

.MTB30 "SIC OUTBOARD ENGINE OUT (NOT CODED)" 

DFIL2, DFIL3 = FALSE 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

END 

" ii 

"RESPONSE FOR EXTERNAL 6 INTERRUPT " 

ii ii 


ON EX6INT 

LOCK T1INT,T2JNT,EX1INT,EX2INT,EX3INT,EX4INT,EXSINT,EX6INT, X 
EX7INT.EXBINT.EX9INT 
DIRECT 

"READ REAL TIME CLOCK INTO DVTEX" 

END 

DFIL2, DFIL3 * TRUE 

.MTB40 "S2 PROPELLANT DEPLETION (NOT CODED)" 

DFIL2, DFIL3 « FALSE 
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EXIT 
PROC . 


F.GP1SO 

EXIT 
PROC . 

T2S10. 


UNLOCK ''RELEASE PREVIOUSLY ENABLED INTERRUPTS'' 

END 

i i 

''PESPONSE FOR EXTERNAL 8 INTERRUPT 

i i 

ON EX8INT 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,FX4INT,EXSINT,EX6INT, 
EX7INT,EXSINT,EX9INT 
DIRECT 

•'READ REAL TIME CLOCK INTO DVTEX ' ' 

END 

DFIL2, DFIL3 « TRUE 

.MDSOO ''PROCESS DIGITAL COMMAND SYSTEM INPUT'' 

DFIL2, DFIL3 = FALSE 

UNLOCK. ''RELEASE PREVIOUSLY ENABLED INTERRUPTS'' 

END 

• ' EGP 1 ' ' 

E G P 1 5 ''TIMER 1 SCHEDULER'' 

DECLARE FIXED, KT1HIAS 0 CONSTANT * 9. 

DIRECT 

'•READ PEAL TIME CLOCK INTO TEMP'' 

END 

TEMPI * DVl'MM + ((TEMP - DVRTC LAND MSKRTC) ♦ KT1BIAS) RSH 
IF DVMLT LO TEMPI 
THEN TEMP = 1 

GST 1 M a DGMLM 
GOTO EGP ISO 

END 

IF DVMLT LU DVSST 

THEN GST 1 M a DGMLM 

TEMP = (DVMLT - TEMPI) LSH 1 
ELSE GST 1 M = 2 

IF DVSST LO TEMPI 
THEN TEMP = 1 

ELSE TEMP = (DVSST - TEMPI) LSH . 1 

END 

END 

. DIRECT 

' 'LOAD TIMER 1 WITH TEMP ' ' 

END 

' * EGP 1*5 ' ' 

EGP 1 8 ''TIMER 2 SCHEDULER ' ' 

DECLARE FIXED, KT2BIAS 0 CONSTANT » 12.0, 

MSEC -2 CONSTANT * 4.*DKRTCSEC 

DGST2 = 0 

DV2TG a DVTMM + K4SEC 
FOR I a 0 TO 10 

IF NOT T2STAT (I) THEN GOTO T2S10 

IF DLTTL(I) GR DV2TG THEN GOTO T2S10 

DGST2 *1 + 1 
DV2TG = DLTTL(I) 

END 

LOCK T1INT.EX1 INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT,EX7INT 
EX8INT.EX9INT 

IF DVT2G LO DVTMM THEN GOTO T2S20 


i i 

i i 
i i 

X 


2 


X 


END 

END 

, X 

END 
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DIRECT 

• •READ REAL TIME CLOCK INTO TEMP" 

END 

TEMP e (0V2TG - DVTMM D VERT - (TEMP - DVRTC LAND MSKRTC ) X 

- KT2BIAS) RSH 1 
IF TEMP LQ 0 

T2S20. THEN TEMP * 1 

END 

DIRECT 

' 'LOAD TIMER 2 WITH TEMP' ' 

END 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

EXIT • ' EGP 1 8 ' ' 

IJNTIME 

PROC . EGP20 "SYSTEM TIME UPDATE ROUTINE" 

LOCK T1INT J T2INT,EX1INT,EX2INT,EX3INT,EXAINT,EXSINT,EX6INT, X 
EX7INT ,EX8INT,EX9INT 
DIRECT 

"READ REAL TIME CLOCK INTO TEMPI" 

END 

OVERT ■ TEMPI - DVRTC LAND 3 

DVTMM s DVTMM + (TEMPI - DVRTC LAND MSKRTC) 

DVRTC ■ TEMPI - OVERT 
DVTRR « DVTMM - DVTMR 
IF DFIL3 

THEN GOTO OUT 

END 

IF DFIL2 

THEN UNLOCK T 1 1 NT 
GOTO OUT 

END 

IF DFIL1 

THEN UNLOCK "RELEASE PREVIOUSLY ENABLED INT. EXCEPT T2" 

GOTO OUT 

END ' 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

OUT. EXIT "EGP20" 
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PROC 

.NINTSEQ1 

• NON -interrupt sequencer for PHASES 1 

AND 3 

i 

NISI . 

IF 

ARSTAT 

THEN .MAROO $ .PERPROC 


END 




' ' ACCELEROMETER READ ' ' 




IF 

SASTAT 

THEN .MSAOO $ .PERPROC 


END 




' 'SIMULATED ACCEL 

(NOT 

CODED) ' • 


IF 

APSTAT 

THEN .MAPOO $ .PERPROC 


END 




'•ACCELEROMETER PROCESSING'' 



IF 

D VST A T 

THEN .MDVOO $ .PERPROC 


END 




' 'F/M CALCULATIONS 

(NOT 

CODED) » • 


IF 

DPSTAT 

THEN . MDP 0 0 $ .PERPROC 


ENO 




' 'DISCRETE PROCESSOR 

(NOT 

CODED) ' * 


IF 

NESTAT 

THEN . MNEOO $ .PERPROC 


END 




' 'BOOST NAVIGATION 

(NOT 

CODED) ' ' 


IF 

TCSTAT 

THEN . MTCOO $ .PERPROC 


END 




''RESTART CALCULATIONS 

(NOT 

CODED) ' ' 


IF 

PASTAT 

THEN , MP A 0 0 S .PERPROC 


END 



/ 

' 'PHASE ACTIVATOR ' ' 

(NOT 

CODED) 1 * 


IF 

TTSTAT 

THEN . MTTOO $ .PERPROC 


END 




' 'TIME TILT GUIDANCE 

(NOT 

CODED) • • 


IF 

CC1STAT 

THEN . MCC 1 0 $ .PERPROC 


END 




' 'CHI COMPUTATIONS 

(NOT 

CODED) ' * 


IF 

I GST A T 

THEM .MIGOO $ .PERPROC 


END 




'•ITERATIVE GUIDANCE MODE'' 



IF 

hsstat 

THEN . MHS 0 0 $ .PERPROC 


END 




' ' S4B CUTOFF PREDICTION 

(NOT 

CODED) ' ' 


IF 

OGSTAT 

THEN .MOGOO $ .PERPROC 


END 




' 'ORBITAL GUIDANCE 

(NOT 

CODED) ' * 


IF 

TGSTAT 

THEN . MTGOQ S .PERPROC 


END 




''TARGET UPDATE 

(NOT 

CODED) ' * 


IF 

RSSTAT 

THEN . MRSOO $ .PERPROC 


END 




•'TIME-TO-GP TO RESTART 

(NOT 

CODED) ' * 


IF 

CSSTAT 

THEN . MCSOO $ .PERPROC 


END 




' ' T I MF BASE 6-CHECK 

(NOT 

CODED) * ' 


IF 

TBISTAT 

THEN . MTB 1 U $ .PERPROC 


END 




' 'TIME BASE 1 

(NOT 

CODED) « • 


IF 

TB57ST AT THEM , MTB57 S .PERPROC 


END 




' 'TIME BASE 5/7 

(NOT 

CODED) » * 


IFMSSTAT 

THEN . MMSOO $ .PERPROC 


END 




' 'MINOR LOOP SUPPORT 

(NOT 

CODED) * ' 


IF 

PGSTAT 

THEN , MPGOO $ .PERPROC 


END 




''SIM PLATFORM G 1 M ANGLECNGT 

CODED) • ’ 


IF 

EBSTAT 

THEN , MEBOO $ .PERPROC 


END 




* 'ETC/BTC 

(NOT 

CODED) ' 1 


GOTO NISI 



END 

FXIT 

t ' 

NINTSEOl 

t » 


END 

PROC 

•MINTSEQ2 1 

* NON -INTERRUPT SEQUENCER FOR PHASES 2 

AND 4 

i t 

NIS2, 

IF 

CTSTAT 

THEN .MCTOO $ .PERPROC 


END 




•'DATA COMPRESSION TELEMCNOT 

CODED) ' * 


IF 

OTSTAT 

then .mdtoo 


END 




''SECTOR DUMP TELEMETRY 

(NOT 

CODED) ' • 


.PERPROC ' 

'INSURE PERIODIC PROCESSOR GETS EXECUTED'' 



GOTO NIS2 




EXIT 

1 1 

NINTSEQ2 

t » 
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PROC 


PP1. 

PP2. 

PP10. 

PP20. 

EXIT 


.PERPROC ••PERIODIC PROCESSOR'* 

DECLARE FIXED, VPPOT 0 
DIRECT 

••READ REAL TIME CLOCK INTO TEMP'' 

END 

DVPTG ■ (TEMP - VPPOT LAND MSKRTC) RSM 2 
VPPOT « TEMP 
FOR I ■ 0 TO 2 

IF NOT PPSTATCI) THEN GOTO PP20 
DLPTL(I) » DLPTL ( I ) * DVPTG 
IF DLPTL ( I ) LS DLPRL(I) THEN GOTO PP20 
GOTO C , PP1, PP 2, *) I 

. MPC50 "50 SEC DATA COMP (NOT CODED)" $ GOTO PP10 

, MPC60 "60 SEC DATA COMP (NOT CODED)" $ GOTO PP10 

. MPC99 "100 SEC DATA COMP (NOT CODED)" 

DLPTL ( I ) » 0 

END 

' 'PERPROC ' ' 


END 

END 
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PROC .MEPOO ''EVENTS PROCESSOR (TIMER 2 ENTRY) 1 ' 

• i 

' ' EVENTS PROCESSOR TABLE 

i < 

'• only a PORTION OF THE TABLE (THROUGH TIME BASE 3) 

' ' HAS BEEN CODED. 

t ' 

" EACH ENTRY CONSISTS OF TWO WORDSi 

i' 1. AN INDEX IDENTIFYING THE APPLICATION MODULE TO 

•' PERFORM PROCESSING FOR THE EVENT. 

'• 2. EVENT EXECUTION TIME. 

•' NOTE: AN ENTRY INDEX WITH A VALUE OF ZERO IS EITHER SET 

• • DYNAMICALLY IN REAL TIME OH IS USED TO DISABLE 

'' THE EVENTS PROCESSOR FOR THE REMAINDER OF A TIME 

" BASE. 


DECLARE INTEGER, EPT ABLE (2, 131) X 

s ( 1 0 ''START OF TIME BASE 0 TABLE'' X 

0 16.0*DKRTCSEC X 

0 1 7 . 0*DKRTCSEC X 

0 17, 5*DKRTCSEC X 

0 0 X 

2 0 ''START OF TIME BASE 1 TABLE'' X 

3 1 . 0*DKR T CSEC X 

0 6.0*DKRTCSEC X 

4 9.0*DKRTCSEC X 

5 1 0 , 0*DKRTCSEC X 

0 14 . D*DKRT CSEC X 

6 134.7*DKRTCSEC X 

0 0 X 

7 0 ''START OF TIME BASE 2 TABLE'' X 

0 0 X 

0 18. 4*DKRT CSEC X 

0 27.5*DKRTCSEC X 

0 0 X 

8 0 ''START OF TIME BASE 3 TABLE" X 

9 0 X 

10 0 X 

0 0 X 

11 0 X 

12 0 X 

13 1 . 4*DKRT CSEC X 

14 4.4*0KRTCSEC X 

15 4.4*DKRTCSEC X 

16 6 , 7*DKRTCSEC X 

0 6 . 7*DKRT CSEC X 

17 6.7*DKRTC,SEC X 

18 40.fi*DKRTCSEC X 

19 40 ,6*DKRTCSEC X 

20 58 . 6*DKRTCSEC 

21 60 . 6*DKR TCSEC 

0 299 , 0*DKRTCSEC 

0 355.0*DKRTCSEC X 

0 388 . 5*DKRTCSEC X 
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0 0 ) 

EPOO. IF DFTBCEP 

EP04A. THEN DFTBCEP ■ FALSE 

GOTO EP02 


END 

GOTO (EP100,EP101,EP102,EP103,EP104,EP105,EP106,EP107,EP10B, X 
EP109,EP110,EP111,EPU2,EP113,EP114,EP115,EP116,EP117, X 
EP118,EP119) EPTABLE(0, EPTINDX) - 1 


EP100, 

.LE285 

"SCHEDULE WATER METHANOL 

(NOT 

CODED ) • * 

$ 

GOTO 

EPOI 

EP101. 

.LE25 

"TIME BASE t SETUP 

(NOT 

CODED ) • * 

S 

GOTO 

EPOI 

EP102, 

.LE30 

"COMMAND INIT OF YAW MANEUVER (NOT 

CODED) * 1 

$ 

GOTO 

EPOI 

EP103. 

. LE35 

"COMMAND TERM OF YAW MANEUVER ( NOT 

CODED) » • 

$ 

GOTO 

EPOI 

EP104. 

.LE40 

"SET ACCEL REASON. TEST CONST(N0T 

CODED) * « 

$ 

GOTO 

EPOI 

EP105. 

• LE50 

• 'START TIME BASE 2 

(NOT 

CODED) * 1 

$ 

GOTO 

EPOI 

ER10B. 

,LE5b 

"DISABLE THRUST CONSTRAINT 

(NOT 

CODED) • • 

$ 

GOTO 

EPOI 

E P 1 0 7 . 

.LE75 

• 'TIME BASE 3 SETUP 

(NOT 

CODED) • • 

S 

GOTO 

EPOI 

FP10R. 

.LE70 

"SET ACCEL REASON. TEST C0NST(N0T 

CODED) • * 

$ 

GOTO 

EPOI 

EP109. 

.LE250 

"CHNG GIMB REASON, TEST CONST(NOT 

CODED) * « 

$ 

GOTO 

EPOI 

FP110. 

. LE355 

' 'DEQUEUE TIME TILT 

(NOT 

CODED) 1 1 

$ 

GOTO 

EPOI 

EPli ) . 

, LE365 

"F/M UNCERT FOR THRUST MISAL 

(NOT 

CODED) * • 

$ 

GOTO 

EPOI 

EP1 12. 

. LE82 

' 'ENABLE DIN 22 AND INT 2 

(NOT 

CODED) ■ • 

$ 

GOTO 

EPOI 

FP1 1 3. 

. LE 1 00 

"SET ACCEL BACKUP PROFILE 

(NOT 

CODED) • ' 

s 

TOTO 

EPOI 

EP 1 1 4 . 

. LE95 

"SET ACCEL REASON. TEST CONST(NOT 

CODED) * 1 

$ 

GOTO 

EPOI 

EP115. 

• LE90 

' 'ENABLE DIN 19 

(NOT 

CODED) * ■ 

s 

GOTO 

EPOI 

EP116. 

• LE96 

"ENQUEUE F/M CALC, SMOOTHING 

(NOT 

CODED) * 1 

s 

GOTO 

EPOI 

EP117. 

, LE 1 05 

• 'ENQUEUE IGM 

(NOT 

CODED) • ' 

$ 

GOTO 

EPOI 

EP118. 

.LE115 

"SET MINOR LOOP PARAMETERS 

(NOT 

CODED) • • 

$ 

GOTO 

EPOI 

FP110. 

.LE111 

• 'SET SMC FLAG 

(NOT 

CODED) • * 

$ 

GOTO 

EPOI 

EP 1 20 , 

.LEI 10 

"ENQUEUE SMC 

(NOT 

CODED) » 1 




EPOI, 

LOCK T1INT,T2INT,EXHNT,EX2INT,EX3INT 

,EX4INT ,EX5INT 

.! 

EX6INT 

9 


EX7INT,EX8INT,EX9INT 

IF DFTBCEP THEN GOTO EP04A END 

FPTINDX a EPTINDX + 1 

DOST? « 3 ’ • SET INDEX FOR FP ENTRY IN T2 SCHED CONT TABLE'' 

IF EPTABLE(0, EPTINDX) 

FP03. THEN IF EPTABLEC1, EPTINDX) EG VTOLD 

THEN UNLOCK "RELEASE PREVIOUSLY ENABLED INT" 
GOTO EPOO 

END 

VTOLD = EPTABLE(1, EPTINDX) 

DLTTL (DQST2) » DVTMR + VTOLD 
ELSE T2STAT (DQST2.) « FALSE 
IF NOT DFIL1 

THEN .EGP07 "RESCHEDULE T2 (NOT CODED)" 

END 


END 

FP02. UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

EXIT "MEPOO" 

PROC .MEP05 "EVENTS PROCESSOR (TIME BASE CHANGE ENTRY)" 

DECLARE INTEGER, EPTBC ( 1 0 ) CONSTANT « 0 5 13 IB 38 55 71 93 107 110 
EPTINDX « EPTBC (DTBID) - 1 
. MEP 1 0 

FXIT " MEP05 ' ' 

PROC .MEP10 "EVENTS PROCESSOR (RESCHEDULE ENTRY)" 

EPTINDX « EPTINDX + 1 
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EP0«. 


DQST2 ■ 3 ''SET INDEX FOR EP ENTRY IN T2 SCHEl) CONT TABLE'' 
IF EPTABLF(0,EPTINDX) 

THEN VTOLD = EPTABLEC 1 ,EPTINOX) 

DLTTL ( DQST2) = DVTMR + VTOLD 
T2STAT ( D 0 S T 2 ) * TRUE 
ELSE T2STAT ( D (J S T 2 ) ■ FALSE 


END 

IF NOT DFIL1 

THEN . EGP 07 ''RESCHEDULE TIMER 2 (NOT CODED)' 

END 



PPOC 


IG253 


CLASP KERNEL 6 ITERATIVE GUIDANCE MODE 


.MIGOO "ITERATIVE GUIDANCE MODE" 

DECLARE BOOLEAN, 


CHIBARST 

REITERAT 

PHASE 

SMCFLAG 

S4BURN 


COSTHETA 

25, 

DELTAL3 


12. 

DELTAVVP (3) 11, 

X 

DfcLT A2 

2. 

DPHII 


33, 

DPHIT 

33, 

X 

FPSIL0N2 

15, 

EPSIL0N3 


15, 

GS (3) 

21, 

X 

6T 

20, 

GV (3) 


21, 

GVSTAR (3) 

21, 

X 

GVT (3) 

20, 

J1 


4, 

J 12 

2, 

X 

J2 

4, 

J3 


2, 

J3P 

2, 

X 

KCCT4 

23 

CONSTANT 

a 

1.53 

» 


X 

KCCT8 

23 

CONSTANT 

a 

1.55 

• 


X 

KMU 

-24 

CONSTANT 

a 

- . 39860320E 15 , 


X 

KT 

48 

CONSTANT 

a 

.48497964E-7 , 


X 

K 1 

2, 

K2 


2, 

K 3 

-2. 

X 

K4 

-2. 

LYP 


12. 

LI 

12. 

X 

L12 

12, 

L2 


12, 

L3 

12, 

X 

L3P 

12, 

MS4 ( 3, 3) 


25, 

M4VC3.33 

25, 

X 

PH 1 1 

25, 

PHUT 


25, 

PHIT 

25. 

X 

PI 

“5 , 

P12 


-6, 

P2 

-5, 

X 

Q 1 

”5, 

Q12 


-5. 

Q2 

-5, 

X 

P 

2, 

R0VEX3 


36, 

RS (33 

2, 

X 

PT 

2, 

RV (3) 


2, 

RVT (3) 

2. 

X 

P 4 (3) 

2, 

SINTHETA 


25, 

SI 

4, 

X 

812 

2, 

S2 


4, 

TAU1 

15, 

X 

TAU2 

15, 

TAU3 


15, 

TCI 

15. 

X 

THETAT 

25, 

TSTAR 


15, 

TIC 

15, 

X 

Til 

15, 

T2I 


15. 

T3I 

15, 

X 

U1 

-12, 

U 1 2 


-13, 

U2 

-12, 

X 

V 

11. 

VEX 1 


12. 

VEX2 

12, 

X 

VEX3 

12, 

VS (3) 


11, 

VT 

11. 

X 

VV (3) 

H, 

VVT (3) 


11, 

V 4 (3) 

11 


DUE TO THE SIZE OF 

IGM, ONLY A 

SECTION 

OF IT HAS BEEN 

COOED. 

1 1 

PART OF THE 

GUIDANCE COMPUTATIONS 

HAVE 

BEEN SELECTED 

TO DEMON- 

f 1 

STRATE MATHEMATICAL 

OPERATIONS. 


THE PHASING PORTION 

OF IGM 

1 1 

HAS NOT BEEN 

CODED 

SINCE SIMILAR 

CAPABILITIES APE ILLUSTRATED 

1 1 


BY OTHER KERNELS. 


IG251 - IGM GUIDANCE PARAMETERS COMPUTATIONS 
ROTATE POSITION AND VELOCITY INTO TARGET PLANE 
R4 ■ MS4/*/RS 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 
DIRECT 

"TELEMETER X POSITION IN 4 SYSTEM, R4(0) " 

END 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 
DIRECT 

"TELEMETER Y POSITION IN 4 SYSTEM, R4 ( 15 " 

END 
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10254. 


TG258. 


IG259. 


IP260. 
1 0262 . 


UNLOCK ''RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUT'' 
V 4 ■ M34/*/VS 

.UTROO ''DELAY FOR TELEMETRY AS REQUIRED'' 

DIRECT 

"TELEMETER Z POSITION IN 4 SYSTEM, R4C2D" 

END 

, UTR02 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER Y VELOCITY IN 4 SYSTEM, V4(l)" 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUT" 

it " 

" CALCULATE RANGE ANGLE MEASURED IN ORBIT PLANE " 

l i " 

IF T2I ED C. 

THEN L12, J12,S12,Q12,P12,U12 » n. 

GOTO IG2B9 

END 

IF T 1 1 ED 0. 

THEN L1,J1,S1,Q1,P1,U1 « 0. 

GOTO IG2S8. 

END 

LI * VEX1*.L0G(TAU1/(TAU1 - HDD 
J1 » L1*TAU1 - VF.X 1 *T 1 1 

51 ■ L 1 *T 1 1 - J1 

Q 1 ■ S1*TAU 1 - , 5*VEX 1 *T 1 J **2 
PI ■ J 1 *T AU 1 - ,5*VEX1*T1I**2 
U1 ■ Qi*TAUl - VEX 1*T 1 I**3/6 , 

L.2 ■ VEX2*.L00(TAU2/CTAU2 - T2I ) ) 

J2 « L2*TAIJ2 - VEX2*T2I 

52 « L2*T2 1 - J 2 

Q2 » S2*T AU2 - .S*VEX2*T2I**2 
P2 = J2*T AU2 - . B*VEX2*T2I**2 
U2 ■ Q2*T AU2 - VEX2*T2I**3/6, 

L 1 2 » LI + L2 

J 1 2 » J1 + J2 + L2*T 1 1 

S 1 2 ■ SI - J2 ♦ L 1 2* C T2I ♦ TCID 

Q 1 2 ■ Q1 ♦ Q2 ♦ S2*T 1 1 * J1*T2I 

P 1 2 » PI + P2 ♦ T 1 I* ( 2 , * J2 ♦ L2*T 1 I D 

U 1 2 « U1 + U2 ♦ T 1 I* ( 2 , *Q2 + S2*T1ID ♦ T2I*P1 

L3P ■ VEX3*.L0GCTAU3/CTAU3 - T3ID) 

LYP » L12 + L3P 

J3P * L3P*T AU3 - VEX3*T3I 

TIC » Til + T2I ♦ TCI 

TSTAR ■ TIC + T3I 

PHI I o ,ATAN(R4C2) ,R4(0D ) 


it ii 

"DETERMINE PHASE ' ' 

ii ii 

IF PHASE "IS FOR LEAVING ORBIT" 

THEN "CALCULATE TERMINAL CONDITIONS" X 

SINTHETA «(RS/*/VS)/CR*VD 


COSTHETA « . SORT ( 1 , - SINTHETA**2 D 
DPHII « V/R*COSTHETA 
DPHIT ■ VT/RT*.COS(THETAT) 
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PHIIT « ,5*CDPHII ♦ DPHIT)*TSTAR 
PHIT » PHII ♦ PHIIT 

, UTR02 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER TERMINAL RANGE ANGLE, PHIT" 

END 

UNLOCK "RELEASE INT LOCKED BY TELEM DELAY ROUTINE" 
IF TSTAR LQ EPSIL0N3 THEN GOTO IG269 END 

.MIG30 "CALL TERM RAD, VEL, FLT ANGLE (NOT CODED)" 
GT « - KMU/RT**2 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED ' 1 
DIRECT 

"TELEMETER TERMINAL GRAVITY VECTOR, GT" 

END 

UNLOCK "RELEASE INT LOCKED BY TELEM DELAY ROUTINE" 
GVT(O) » GT*.COS(THETAT) 

GVT(l) « 0, 

GVTC2) ■ GT*.SIN(THETAT) 

RVT(O) » RT*.COS(THETAT) 

RVT(l), R VT ( 2 ) » 0, 

PHIT = PHIT - THETAT 

ELSE "CALCULATE INTERMEDIATE PARAMETERS" X 

DEL T A2 « V*TSTAR - J3P + LYP*T3I - R0VEX3* ( ( T AU 1 - X 
T1I)*L1 ♦ CTAU2 - T2I ) *L2 ♦ (TAU3 - T3I) X 

*L3P)*(LYP * V -VT) 

PHIIT « KT* ( S 1 2 + DELTA2) 

PHIT = PHII ♦ PHIIT 

.UTR02 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER TERMINAL RANGE ANGLE, PHIT" 

END 

UNLOCK "RELEASE INT LOCKED BY TELEM DELAY ROUTINE" 

END 

• ii 

•ROTATE POSITION, VELOCITY, GRAVITY TO INJECTION SYSTEM " 

< ii 

M4V(0,0), M4V(2,2) ■ .COSCPHIT) 

M4V (0,2) ■ .SIN (PHIT) 

M4V (2,0) « -.SIN(PHIT) 

M4 V (1,1) « 1. 

M4V(1,0), M4V ( 0, 1 ) , M4V (2,1), M4V(1,2) = 0. 

RV ■ M4V/*/R4 

VV ■ M4V/W4 

GV ■ M4V/*/MS4/*/GS 

RVSTAR (*) » . 5* (GVT (*) ♦ GV(*)) 

DELT AVVP (*) » VVT ( *) - VV(*) - TSTAR*GVSTAR (*) 

i ii 

• IG314 - CALCULATE TIME-TO-GO (NOT CODED)" 

' " 

IF REITERAT 

THEN REITERAT ■ FALSE 
L3P * L3 
J3P » J3 

LYP « LYP ♦ DELTAL3 
GOTO IG260 
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ELSE REITERAT ■ TRUE 


IG340. 

IG350. 

I G 3 6 0 . 
IG440. 


END 
' ' IG324 
' ' IG326 
IF 
IF 
IF 


- COMPUTE CORRECTED VELOCITIES TO RE 


- CALCULATE 

DESIRED PITCH AND YAW 

CHIBARST 


THEN GOTO IG350 

TSTAR GQ EPSI 

LON 2 THEN GOTO IG3S0 

S4BLJRN 



THEN DVMC5 

a 

0VMC5 LXOR MSKM5CBS 

OVMLR 

a 

25.*KCCT4 

DV1MR 

a 

• 04/KCCT 4 

ELSE DVMC6 

a 

DVMC6 LXOR MSKM6CBS 

OVMLR 

a 

25 • *KCCT8 

D V 1 MR 

a 

• 04/KCCT 0 


GAINED 


END 

CHIBARST * TRUE 
Kl, K2, K3, K 4 = 0. 

GOTO 1 04 4 0 

' 1 IG36 1 - COMPUTE INTERMEDIATE PARAMETERS 

.UTROO * 'DELAY FOR TELEMETRY AS REQUIRED" 
DIRECT 


• 'TELEMETER T3I • ' 


END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY 
"IG446 - COMPUTE PITCH AND YAW IN 4 SYSTEM 

IF SMCFLAG THEN .MSMOO END "COMP SMC TERMS 
.MCCOO "PERFORM CHI COMPUTATIONS" 

IF DFILE LAND MSKFPSI2 

THEN .EGP32CMSKSCC0) "ENABLE INTERRUPT 2 

END 

EXIT "MIGOO" 


(NOT CODED ) ' ' 
(NOT CODED) ' ' 
END 
END 


(NOT CODED) ' ' 


DELAY R0U1 ' ' 
(NOT CODED) ' ' 
(NOT CODED) ' ' 
(NOT CODED) ' ' 

(NOT CODED) ' ' 
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PROC . MDSOO "DIGITAL COMMAND SYSTEM" 

DECLARE BOOLEAN, X 

DCSMST AT (20), X 

FDSEN , X 

FDSPG , X 

FDSRE 

DECLARE INTEGER, X 

tfCSDATCT (20) CONSTANT «(0 1 3!5 2 2 3 3(0) 35 8(0) 6 0), X 

DCSDTCNT , X 

DCSERLIM CONSANT ■ 7, X 

DCSER04 CONSANT « 0 ' 040000000 ' , X 

DCSER10 CONSANT « 0 • 100000000 ' , X 

DCSER14 CONSANT ■ 0 ' 140000000 ' , X 

DCSER20 CONSANT » 0 ' 200000000 ' , X 

DCSER24 CONSANT b 0*240000000', X 

DCSER44 CONSANT ■ 0 ' 440000000 ' , X 

DCSER60 CONSANT ■ 0 ' 600000000 • , X 

0CSER64 CONSANT ■ 0 ' 640000000 ' , X 

DCSER74 CONSANT ■ 0 ' 740000000 ' , X 

DCSINDX , X 

DCSMODE (64) CONSTANT ■ (5(0) 8 2(0) 1 2 J 4 5 2(0) 14 6 0 7 X 

2(0) 19 3(0) 9 0 15 17 8(0) 13 4(0) X 
18 10 11 12 2(0) 16 15(0)), X 


DCSSTC0D(20) CONSTANT « (0 ' 000000000 ' 0*100000000* 0 ' 1 1 0000000 ' X 

0* 120000000* 0*130000000* 0 • 1 40000000 ' X 
0 * 200000000 ' 0*220000000* 0 • 050000000 ' X 
0 *310000000 ' 0*770000000* 0 ' 770000000 ' X 
0*770000000* 0*450000000* 0 • 1 70000000 ' X 
0*330000000* 0*600000000* 0 ' 340000000 ' X 


0*520000000* 0*250000000*), X 

VDSBL (35), X 

VDSER , X 

VDSRC , X 

VDSSB , X 

VDS01 

UNLOCK "RELEASE PREVIOUSLY ENABLED INTERRUPTS" 

DIRECT 

"READ DISCRETE INPUT REGISTER INTO TEMP'* 


''READ DIGITAL COMMAND SYSTEM INPUT INTO VDS01" 


END 

IF NOT TEMP LAND MSKDCSMD THEN GOTO DS60 END 

t i ii 

''PROCESS DCS MODE COMMAND " 

ii ii 


DS09. IF (VDS01 LSH 7 LXOR VDS01) LAND MSKDCSCM NO MSKDCSCM 

THEN VDSER a DC8ER10 
GOTO DS220 

END 

IF VDS01 LAND MSKDCSSB 

THEN VDSER « DCSER24 
GOTO DS220 

END 

IF VDS01 LAND MSKDCSMC EQ MSKDCSTR THEN GOTO DS25 END 

IF NOT FDSEN 

THEN VDSER » DCSER20 
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GOTO DS220 

END 

IF DFDTL OR FDSPG 

THEN VDSER » DCSER64 
GOTO DS22CJ 

END 

DS20. FDSPG ■ TRUE 

DS?5. DCSINDX « DCSMODE C VDSO 1 RSH 20) 

IF NOT DCSMSTAT (DCSINDX) 

THEN FDSPG = FALSE 

VDSER » DCSER74 
GOTO DS220 

END 

'•TELEMETER STATUS CODE TWICE'' 

, UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER DCS STATUS CODE, DCSSTCOD (DCSINDX) " 

END 

, UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER DCS STATUS CODE, DCSSTCOD (DCSINDX) " 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUT" 
, DS200 ' 'ISSUE CRP ' ' 

DCSDTCNT , VDSSB * 0 
GOTO DS100 

M ' ' 

"PROCESS DCS DATA WORD " 

• i " 

DS60. IF FDSEN 

THEN VDSER « DCSER04 
GOTO DS220 

END 

IF ( VDSO 1 LSH 7 LXOR VDS01) LAND MSKDCSCM NQ MSKDCSCM 
THEN VDSER * DCSER44 
GOTO DS220 

END 

IF VDSO 1 LAND MSKDCSSB NQ VDSSB 
THEN VDSER « DCSER60 
GOTO DS220 

END 

DS1 10. " TELEMETER DATA WORD TWICE" 

, UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TFLEMETER DCS DATA WORD, VDS01" 

END 

.UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER DCS DATA WORD, VDSOl" 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUT" 
.DS200 ' 'ISSUE CRP ' ' 

VDSBL (DCSDTCNT) a VDSOl LAND MSKDCSMC 
VDSSB « VDSSB LXOR MSKDCSSB 
DCSDTCNT a DCSDTCNT + 1 
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nsoi. 

D302. 

DS03. 

DS04. 

DS05. 

DS06. 

rso7. 

DSOB, 

dsopa, 

CSIO. 
DS11. 
OS 1 2 , 
DS13. 
PS14. 
PS 1 5 . 
DS16. 

P 8 1 7 . 
DS1B. 
DS1Q. 


PS220. 


PS235. 


PS530. 


CLOSE 
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IF DCSDTCNT LS DCSDATCT (DCSINDX) THEN GOTO DCSEXIT END 

GOTO (,DS01,DS02,DS03,DS04,D305,DS06,DS07,DS08,DS09A,DS10, X 
DS11,PS12,DS13,DS14,DS15,DS16,DS17,DS18,DS19) DCSINDX 
FDSPG » FALSE 
VDSER » PCSER 1 4 
GOTO DS220 


. DS260 

• 'TIME BASE UPDATE 

(NOT 

CODED ) ' • 

S 

GOTO 

DSS30 

.DS330 (»DS23B. ) 

• 'NAVIGATION UPDATE 

(NOT 

CODED) • ' 

$ 

GOTO 

DSS30 

. DS380 ( »DS220 . ) 

' 'GENERALIZED SS 

(NOT 

CODED) • • 

$ 

GOTO 

DSb30 

, DS430 

"SECTOR DUMP 

(NOT 

CODED) • • 

s 

GOTO 

D3530 

.DS470 

' 'SINGLE MEM LOC TEL (NOT 

CODED) ' ' 

$ 

GOTO 

DS530 

.DS510 

' 'TERMINATE 

(NOT 

CODED) ' ' 

s 

GOTO 

DS530 

.PSS40 

' 'MANEUVER UPDATE 

(NOT 

CODED) » • 

$ 

GOTO 

DSS30 

. DS5S0 

' 'MANEUVER INHIBIT 

(NOT 

CODED) ' ' 

$ 

GOTO 

DS530 

.PS670(sPS235.) 

• 'TARGET UPDATE 

(NOT 

CODED) ♦ » 

s 

GOTO 

DSb30 

.DS700 

' ' ANTENNA TO OMNI 

(NOT 

CODED) ' * 

$ 

GOTO 

DSb30 

.DS720 

' 'ANTENNA TO LOW 

(NOT 

CODED) * • 

s 

GOTO 

DS530 

.DS740 

• 'ANTENNA TO HIGH 

(NOT 

CODED) ' • 

s 

GOTO 

DS530 

. DS770 

"INHIBIT WATER CONTCNOT 

CODED) ' ' 

$ 

GOTO 

DS530 

. DS790 

' 'TIME BASE 8 ENABLE ( NOT 

CODED) » ' 

$ 

GOTO 

DSb30 

. DS8 1 0 

* 'EXECUTE MANEUVER 

A ( NOT 

CODED) • ' 

$ 

GOTO 

DSb3Q 

. DS840 

' 'TO AND E ENABLE 

(NOT 

CODED) ' ' 

s 

GOTO 

DS530 

. DS860 

* 'EXECUTE MANEUVER 

B ( NOT 

CODED) ' • 

s 

GOTO 

DSb30 

.DS900 

"S4B/IU LUNAR IMPCTCNOT 

CODED) ' ' 

s 

GOTO 

DSb30 

, DS960 

| | 

' 'ENABLE TB6D ALT SQCNOT 

CODED) ' ' 

s 

GOTO 

DSb30 

a a 

' 'PROCESS DCS ERROR 

i i 

condition 





I f 

t t 
i i 


VDSRC s VOSRC + 1 
IF VOSRC LS DCSERLIM 

THEN FDSRE ■ FALSE 
ELSE FDSRE > TRUE 

END 

VDSFR s VDSER + VDSRC + CVDS01 RSH 12 LAND MS K DCSER) 

''TELEMETER ERROR CODE TWICE'' 

, UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER DCS ERROR CODE, VDSER" 

END 

. UTR24 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER DCS ERROR CODE, VDSER" 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUT" 
IF NOT FDSRE THEN GOTO DCSEXIT END 

VDSRC a 0 
FDSEN a TRUE 
FDSPG a FALSE 

. DS200 "ISSUE DCS COMMAND RESET PULSE" 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, X 
EX7INT,EX8INT,EX9INT 
DIRECT 

"SET COMMAND RESET BIT IN DISCRETE OUTPUT REGISTER" 

' 'DELAY 4.13 MS' • 

"RESET COMMAND RESET BIT IN DISCRETE OUTPUT REGISTER" 
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FX IT 
DCSEXIT 


END 

UNLOCK ''RELEASE PREVIOUSLY ENABLED INTERRUPTS'' 
' ' DS200 ' ' 

EXIT • ' MDSOO ' ' 
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PROC .MAROO "ACCELEROMETER READ ROUTINE" 


DECLARE FIXED, 

COSTHY 

25, 

COSTHZ 

25, 

SINTHY 

25, 

SINTHZ 

25, 

VCCYA 

25, 

VCCZA 

25, 

VOACT 

25 -2 


DECLARE INTEGER. 

VO AC (3) 

LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT,EX7INT, 
EX8INT.EX9INT 

DIRECT "ENTER DIRECT MODE TO PERFORM I/O" 

"READ X ACCELEROMETER INTO DVAC(O)" 

"READ Y ACCELEROMETER INTO DVAC(l)" 

"READ Z ACCELEROMETER INTO DVACC2)" 

"READ REAL TIME CLOCK INTO DVACT" 

END 

• UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER START TIME OF CURRENT TIME BASE, DVTI" 

END 

TEMP ■ DVTAS 

. VO A XT « DVTMM + (DVACT - DVRTC - DVERT LAND MSKRTC ) 

DVTAS ■ .24609375E-3 * VOACT 
DVTB « DVTAS - DVTI 
DVDT « DVTAS - TEMP 

.UTROO "DELAY FOP TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER TIME IN CURRENT TIME BASE, DVTB" 

END 

DVMC4 b DVMC4 LAND MSKRTCRS 

UNLOCK "RELEASE INTERRUPT INHIBITS" 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER X ACCELEROMETER READING, DVACCOJ" 

END 

• UTROO "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER Y ACCELEROMETER READING, DVACCD" 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE" 
IF "TIME BASE 1" DKT 1 EG 0. "NOT SET" 

THEN DVFMC « - DVG(O) 

ELSE DVMAS * DVMAS - D VEOF*D VFMR*D VDT 
DVFMC ■ DVEOF*DVFOR/DVMAS 

END 


X 

X 

X 

X 

X 

X 

X 

X 

X 


AR41.DVCAC2) » (DVCCC2) R8H 1) ♦ (VCCZA RSH 1) 

VCCZA > DVCC (2) 

DVCA(l) ■ (DVCC (13 RSH 1) ♦ (VCCYA RSH 1) 

IF ABS(DVCC(1) - VCCYA) GQ .5 "COMPARE TO 90 DEG IN PIRADS" 

THEN DVCA(l) ■ DVCA(l) - 1. "ADJUST BY 180 DEG IN PIRADS ' ' END 
VCCYA • DVCC(l) 

.UTROO "DELAY FOR TELEMETRY AS REQUIRED" 
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DIRECT 

•'TELEMETER Z ACCELEROMETER READING, DVACC2)" 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE" 

A R 1 0 0 . DVDA (*) = (DVAC(*) LAND MSKACCA) - (VOACC*) LAND MSK ACC A ) RSH 7 
P VDB (* ) = ( (DVAC (*) LAND MSKACCB) - (VOACC*) LAND MSKACCB) X 
LSH 14) RSH 7 
V 0 A C ( * ) = DVACC*) 

.UTROO "DELAY E OR TELEMETRY AS REQUIRED" 

DIRECT 

"TFLEMETFR REAL TIME CLOCK AT ACCEL READ, DVACT" 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE" 
AR71..USC00 ( D VTH ( 2 ) « S I NTHZ , COSTHZ ) "OBTAIN SIN/COS (NOT CODED)" 

.UTROO "DELAY FOR TELEMETRY AS REQUIRFD" 

DIRECT 

"TELEMETER MISSION ELAPSED TIME, DVT AS 1 * 

END 

UNLOCK "RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE" 
.USCOO (DVTH(l) = SINTHY.COSTHY) "OBTAIN SIN/COS (NOT CODED)" 

DVD(O) a 20.*DVDT*COSTHY*COSTHZ 
DVD ( 1 ) » 20.*DVDT*SINTHZ 
D VD ( 2 ) = - 20.*DVDT*SINTHY*COSTH2 
DVF (*) a DVFOM*DVD(*) 

EXIT " MAROO ' ' 

PROC .MAPOO "ACCELEROMETER PROCESSING ROUTINE" 


DECLARE FIXED, X 

DELTA 7, X 

KSN2D 25 CONSTANT " .0348994967, "SINE 2 DEGREES" X 

VACZR 7, X 

VPOV (3) 7 

DECLARE INTEGER (3) CONSTANT, X 

MSKAPDG = (0 ' 040000000 ' , X 

o'fuonoonoo', x 

0'2onoonooo'), x 

MSKAPOF = (0 ' 000000010 ' , X 

0 ' 000000200 ' , X 

O' 0 00000020') 

DVVSQ a 0. 

VACZR a 20.*DVF0M*DVDT*KSN2D 
FOR I a 0 TO 2 

AP400, IF ABSCDVDACI) - DVDB(I)) LQ 2. THEN GOTO AP450 END 

IF ABSCDVDA ( I ) - DVECI)) LS ABS(DVDHCI) - DVFCI)) 

THEN GOTO AP440 END 


DVMC4 a DVMC4 LDP MSKAPDG Cl) LSH 1 
DELTA a DVDB(I) 

GOTO AP460 

A P 4 4 0 . DVMC4 a DVMC4 LDP MSKAPDG Cl) 

AP450. DELTA a DVDACI) 

AP460, IF ABS(DELTA) GR 1, THEN GOTO AP500 END 

IF DFZER EU FALSE THEN GOTO AP500 END 

IF ABS(PVFCI)) LS VACZR THEN GOTO AP500 END 

0VMC4 = DVMC4 L DR MSKAPOF(I) 

AP530. DVMC4 a DVMC4 LOR MSKAPDG Cl ) LOR MSKAPDG (1 ) LSH 1 
DFSMC a FALSE 
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DELTA ■ D VFMC*DVD ( I ) 

GOTO AP520 

AP500. IF DVF(I) LS 0. 

THEN IF DELTA LS l.S*DVF(I) - D VRC ( I ) *D VDT X 

OR DELTA GR ,5*DVFCI) ♦ DVRC(I)*DVDT 

THEN GOTO AP530 END 

ELSE IF DELTA GR 1.5*DVFCI) + DVRC(I)*DVDT X 

OR DELTA LS ,5*DVF(I) - DVRC(I)*DVDT 

THEN GOTO AP530 END 


END 

AP510. DVVSO » DVVSG + DELT A**2 
AP520. VPOV(I) » VPOV(I) + DELTA 
DVDMCI) » . 05*VP0 V ( I ) 

, UTRO 1 "DELAY FOR TELEMETRY AS REQUIRED" 

GOTO (AP521, AP522, AP523, *) I 
AP521. DIRECT 

"TELEMETER X MEASURED VELOCITY, DVDM(O)" 

END 

GOTO AP524 
AP522. DIRECT 

"TELEMETER Y MEASURED VELOCITY, DVDMCI) " 

END 

GOTO AP524 
AP523. DIRECT 

"TELEMETER Z MEASURED VELOCITY, DVDM (2) ' ' 

END 

AP524. UNLOCK "RELEASE INTERRUPTS LOCKED BY TELEMETRY DELAY ROUT" 

END 

EXIT "MAPDO" 
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PROC . MMLOO ''FLIGHT SIM ENTRY TO MINOR LOOP'' 

IF DVLRC EQ 0 

THEN DVCC ( *) = DVCC (*) - DVDC(*) 

FLSE DVLRC » DVLRC - 1 

END 

, MML20 ''EXECUTE MINOR LOOP" 

EXIT "MMLOO" 

PROC .MML20 "NORMAL MINOR LOOP ENTRY" 

OPTIMIZE TIMEC20) 

DECLARE BOOLEAN, 

FBUGS 

DECLARE FIXED, 


KCPBG 14 CONSTANT ■ 2016., X 

VBUB (3) 25 , X 

VCG (3) 25 , X 

VCGO (3) 14 , X 

VCG 1 (3) 14 , X 

VCG 1 0 14 , X 

VCG 1 1 14 , X 

VCMND (3,3) 0 , X 

VCOO (3) 14 , X 

VDEL (3) 25 , X 

VGR (3) 0 , X 

V ML 0 (3) 14 , X 

VML1 (3) 14 , X 

VML2 (3) 14 , X 

VOLD (3) 14 , X 

VPGR (3) 0 , X 

VSF (3) 35 , X 

VOCK 25 

DECLARE INTEGER, X 

FBUG (3), X 

VFIO (3), X 

VIRE , X 

VMEMR , X 

VMLET 

DVCC (*) = D VCC ( * ) + DVDC (*) 

IF FBUGS THEN GOTO ML500 END 

MLOOl.FOR I » 2 BY -1 TO 0 

GOTO CML201, ML 1 0 1 , , *) I 
IF VFIO (2) EQ 0 "NORMAL" 

THEN DIRECT "READ Z GIMBAL INTO VGR (2) " END 

ELSE IF V F 1 0 ( 2 ) EQ 1 "BACKUP" 

THEN DIRECT ' 1 READ Z BACKUP INTO VGR (2) " END 


ELSE VGR (2) = VPGRC2) 

END 

END 

GOTO ML004 
ML 1 0 1 . DIRECT 

"READ ERROR MONITOR REGISTER INTO VMEMR" 

END 

DVLDB » DVLDB - (VMEMR LAND MSKEMRLB ) 

IF VFIO ( 1 ) EQ 0 ' 'NORMAL' ' 

THEN DIRECT "READ Y GIMBAL INTO VGR ( 1 ) " END 

ELSE IF VFIO ( 1 ) EQ 1 "BACKUP" 
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THEN DIRECT "READ Y BACKUP INTO VGR(l)" END 
ELSE VQRC1) • VPGR(l) 

END 

END 

GOTO ML004 

ML201, DVEMR ■ DVEMR LOR VMEMR 

IF VFIO(O) EG 0 ' 'NORMAL' ' 


THEN DIRECT "READ X GIMBAL INTO VGR (0)" END 

ELSE IF VFIO(O) EO 1 "BACKUP" 

THEN DIRECT "READ X BACKUP INTO VGR(O)" END 
ELSE VGR ( 0 ) ■ VPGR(O) 

END 

END 

ML004. IF VGR ( I ) GO 0. THEN GOTO ML020 END 

IF DVDGS LS 0 THEN GOTO ML432 END 

IF DVDGS EO 0 THEN GOTO ML020 

ELSE GOTO ML637 END 


ML432. .MDGOO (» J, ML434.) "PROCESS DISAGREEMENT BIT (NOT CODED) 
"DISAGREEMENT BIT PROCESSING WILL TAKE A NORMAL RETURN IF THE 
"DISAGREEMENT BIT IS FOUND TO BE INVALID. OTHERWISE IT WILL 
"TAKE THE ERROR EXIT TO ML434 AND SET J » 0 IF THE GIMBAL IS 
"VALID OR J a 1 IF THE GIMBAL IS NOT VALID. 

* i 

GOTO ML020 

ML434. GOTO (ML4352, ML4351, ML4350, *) I 
ML4350. IF VFI0(2) EQ 0 "NORMAL" 

THEN DIRECT 

"RESTART Y COD COUNTER" 

END 

ELSE DIRECT 

"RESTART Y COD COUNTER (BACKUP)" 

END 

END 

GOTO (ML020, ML637, *) J 
ML4351 . IF VFIO(l) EQ 0 "NORMAL" 

THEN DIRECT 

"RESTART X COD COUNTER" 

END 

ELSE DIRECT 

"RESTART X COD COUNTER (BACKUP)" 

END 

END 

GOTO (ML020, ML637, *) J 
ML4352. IF VFIO(O) EO 0 "NORMAL" 

THEN DIRECT 

"RESTART Z COD COUNTER" 

END 

ELSE DIRECT 

"RESTART Z COD COUNTER (BACKUP)" 

END 

END 

GOTO (ML020, ML637, *) J 
ML020. VCOD(I) « VGR ( I ) LAND MSKGIMA 

IF VCOD(I) EQ 0. AND VOLD(I) EQ 0. AND ABS ( VDEL (I ) ) GQ VOCK 
THEN GOTO ML631 
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END 

IF AB3 ( VCOD (II - VOLDCI)) LS VMLO(I) 

THEN GOTO ML040 

END 

IF ABSCVCODCI) - VOLD CD) + VMLO(I) GQ VMLKI) 

THEN IF VCODCI) LS VOLD(I) 

THEN VCG(I) ■ VCG ( I ) + VML2CI) 

ELSE VCG C I J ■ VCG ( I ) - VML2CI) 

END 

GOTO ML 040 
ELSE GOTO ML630 

END 

ML040. DVTHCI) « VSF 1 1 ) *VCOD C I ) ♦ VCG(I) 

VOLDCI) « VCODCI) 

VDELCI) <* OVTHCI) - DVCCCI) 

DFDBF b TRUF. 

GOTO CML245, ML145, ML045, *) I 
ML045. VCMNOC2.0) » DVA5*VDELC2) - DVA4*VDELC1) 

GOTO ML730 

ML 1 45 . VCMNDCl.O) » DVA1*VDELC1) + DVA2*VDEL(2) 

GOTO ML730 

ML245. VCMNDCO.O) = DV A 6* ( VDEL C 0 ) + D V A3*VDEL ( 1 ) ) 

GOTO ML730 

M L 6 3 0 . VMLET b I + 3 

GOTO ML632 
ML631. VMLET s I 

ML632. VMLET c VMLET LSH 11 LOR VCODCI) RSH 14 LOR VOLDCI) 

IF DVMC6 LAND MSKM6D04 EQ 0 THEN 

.UTK30 ''DELAY FOR TELEMETRY AS REQUIRED ' ' 


DIRECT 

i i 

TELEMETER MINOR LOOP ERROR MESSAGE, 

VMLET ' ' 

END 

END 

IF NOT DFDBF 


THEN GOTO ML635 

END 

nVRE(I) * DVRE(I) 
IF DVRE(I) LS 0 

♦ 1 

THEN GOTO ML637 

END 

IF DVRECI) GR 0 


THEN GOTO ML636 

END 


VMLET b VCODCI) RSH 14 LOR VOLDCI) LOR MSKERTAG 
VFIOCI) b 1 • 'BACKUP' ' 

VCG C I ) b ( VCG C I ) LAND MSK180DG) - VBUBCI) 

VML2CI) » -1. ''180 DEGREES IN PIRADS" 

VOLDCI) » CDVTHCI) LAND MSKM180D)*KCPBG LAND MSKGIMA 
VSFCI) « l./KCPRG 
IF I EO 2 

THEN DIRECT 

•'SET INTERNAL CONTROL REGISTER TO SELECT BIJ GIM'' 
END 

DVICR s DVICR LXOR MSKICRBG 

END 

FBUGS , FBUG Cl) » 1 "PASS1" 

VMLOCI) b VCG 1 0 
VML1CI) a VCGU 

IF DVMC6 LAND MSKM6D04 EQ 0 THEN 

, UTR30 ''DELAY FOR TELEMETRY AS REQUIRED" 
DIRECT 
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ML635. 

ML636. 

M L637 • 
ML730, 

ML760. 

MLOfiO. 


MLlfiO. 

ML260. 

ML900. 

ML500. 

ML520, 

ML540. 


"TELEMETER MINOR LOOP ERROR MESSAGE, VMLET" 

END 

END 

GOTO ML637 
DVHDB * DVHDB - 1 
DFDBF « TRUE 
DVHDA ■ DVHDA * 1 

IF DVHDA LS 0 THEN GOTO ML636 END 

DIRECT 

"SET INTERNAL CONTROL REGISTER TO SWITCH GIMRAL ORDER" 

END 

DVICR « DVICR LXOR MSKICRSG 
DVMC4 ■ DVMC4 LOR M3KM4AMF 
DVDGS «0 

IF DVRE(I) GO VIRE AND DVMC6 LAND MSKM6D04 EQ 0 

THEN . UDOOO C MSKGRF ) "SET GUID REF FAIL DISCCNOT CODED)" 

END 

DFSMC ■ FALSE 
GOTO ML760 

IF ABS ( VCMND (1,0)) GR DVM06 THEN VCMND(I,0) » DVM06 END 

IF ABS (VCMND (1,0) - VCMND (1,1)) GR DVM05 
THEN VCMND (1,0) * VCMND (1,1) + DVM05 

END 

VCMND (1,1) « VCMND ( I , 0 ) 

IF VCMND (1,0) LS 0. 

THEN VCMND (1,2) ■ MSKABLAD - VCMND(I,0) 

ELSE VCMND ( I , 2 ) ■ VCMND(I.O) 

END 

GOTO (ML260, ML160, ML060, *) I 
DIRECT 

• 'ISSUE yaw command ' •' 

END 

IF DVLDB LS 0 

THEN DIRECT 

"SET INTERNAL CONTROL REG TO SELECT CONVERTER A" 
END 

END 

DVMLT ■ DVTMM ♦ DVMLD ♦ (DVTT1 - DVRTC LAND MSKRTC) RSH 2 

GOTO ML900 

DIRECT 

' 'ISSUE PITCH COMMAND* ' 

END 

GOTO ML900 
DIRECT 

"START SPECIAL DOM BACKUP GIMBAL" 

' 'ISSUE YAW COMMAND ' ' 

' 'ISSUE ROLL COMMAND' • 

END 

END 

GOTO MLEXIT 
FOR I ■ 0 TO 2 

GOTO (ML530, ML520, ML540, $) FBUG(I) 

FBUG(I) = 2 
GOTO ML530 
FBUG(I) ■ 0 
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VMLOCI) * VCGO(I) 

VMLl(I) * VCGKI) 

M L 5 3 0 • END 

FPIJGS « FBUG(O) LOR FRUG(t) LOR FBUGC2) 
GOTO ML 0 0 J, 

UNTIME 

MLEXIT. EXIT • *MML?0' * 
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PROC .MSSOO "SWITCH SELECTOR PROCESSING" 

ii ii 

' ' SWITCH SELECTOR TABLE ' ' 

• i ii 

" THE SWITCH SELECTOR TABLE IS MADE UP OF A NUMBER OF " 

" SMALLER TABLES, ONE FOR EACH TIME BASE AND FOR EACH " 

" OF THE ALTERNATE SS SEQUENCES. THE SMALLER TABLES ARE " 

" ORGANIZED INTO ONE LARGE TABLE BY AN OVERLAY. ONLY " 

" THE TIME BASE 1 SEQUENCE HAS BEEN COOED. " 

ii ii 

" EACH TABLE ENTRY REPRESENTS A SINGLE SS COMMAND AND " 

" CONSISTS OF TWO WORDS. " 

" 1 . TIME OE SS ISSUANCE. ' ' 

" 2. SS STAGE AND ADDRESS. " 


DECLARE INTEGER, SST ABLE (2,1000) 

DECLARE INTEGER, SSTTB1 (2,20) CONSTANT X 

■( 5, 0*DKRTCSEC O'OOOOOOOOO' X 

6, 0*DKRTCSEC O' 106500000' X 

14, 0*DKRTCSEC 0'026100000' X 

16, 8*DKRTCSEC 0*406440000' X 

20.0*DKRTCSEC 0*405440000* X 

20 , 2*DKRTCSEC 0*406340000* X 

24.0*DKRTCSEC 0*025740000* X 

27 . 0*DKRTCSEC 0'402100000' X 

29. 0*DKRTCSEC 0*027740000* X 

30 . 0*DKRTCSEC 0*403040000* X 

32. 0*DKRTCSEC 0'401100000* X 

49.5*DKRTCSEC 0*020100000* X 

75. 0*DKRTCSEC O'OOOOOOOOO* X 

90 . 0'ADKRTCSEC 0'402100000* X 

95 . Q*DKRTCSEC 0*401100000* X 

95.3*DKRTCSEC 0*022640000* X 

105. 0*DKRTCSEC 0*407640000* X 

115, 1*DKRTCSEC 0*025740000* X 

119, 8*DKRTCSEC 0*406740000* X 

120, 0*DKRTCSEC 0*405740000* X 

120.1*DKRTCSEC 0*027740000* X 

130.0*DKRTCSEC 0*404040000' X 

132. 4*DKRTCSEC 0*021640000* X 

133,6*DKRTC3EC 0*400700000* X 

133,8*DKRTCSEC 0*401700000* X 

134, 4*DKRTCSEC 0*021740000* X 

134,6*DKRTCSEC 0*023740000* X 

0*377777776* 0*000000000') 


ALTHOUGH THE REMAINING GROUPS OF SWITCH SELECTORS HAVE ' ' 
NOT BEEN CODED, THEY ARE REFERENCED IN THE FOLLOWING *' 

OVERLAY STATEMENT TO INDICATE HOW THE OVERALL SS TABLE ' ' 
WOULD BE ORGANIZED. • • 

• • 

OVERLAY SSTABLE ■ SSTTB 1 , SSTTB2, SSTTB3, SSTTB4 , SSTTB5, SSTTB6 , X 
SSTTB7,SSTTR8,SSTSIVB,SSTSXVA,SSTTB6A,SSTTB6B,SSTT86C, X 
SSTS4Cl,SSTGAIN,SSTTB6D,SSTALU 0 SSTGSS,SSTSBLO,SSTSBHI, X 
SSTSB0M,SSTECSV,SSTECSl,SSTTB3A e SSTTB5A,SSTTB5B 
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DECLARE BOOLEAN, 


FASE 





FBRNI 





FCLS4 





FFBCH 





FHST 





FSSAC 





FSSIO 





FT AD V 





FT60P 





DECLARE FIXED - 

2 constant. 



KCSSK 

a 

,200*DKRTCSEC 

$ 


KSSB1 

s 

,01 8*DKRTCSEC 


3. 

KSSB2 

c 

,025*0KRTCSEC 

- 

2. 

KSSB3 

s 

,019*DKRTCSEC 

• 

11. 

KSSB4 

= 

. 0 1 3*DKRTCSEC 

- 

17. 

KSSB5 

s 

.026*0KRTCSEC 

- 

3. 

KSSB6 

8 

. 0 13*DKRTCSEC 

m 

2. 

KSSB7 

S 

,023*DKRTCSEC 

- 

6. 

KSSB8 

8 

.01 3+DKRTCSEC 

m 

9. 

KSSRB 

a 

,0S0*DKRTCSEC 

- 

2. 

KSS500MS 

8 

,500*DKRTCSEC 



KSSSOOS 

8 

BOu.*DKRTCSEC 




DECLARE FIXED -2, 

VATRR , 

VATR4 , 

VGBIA , 

VSSRT , 

VSSTM , 

vssw , 

VSTGO 

DECLARE INTEGER, 

SSTTBPTR ( 8 1 CONSTANT = ( L ' SSTTB 1 ' -L ' SST ABLE ' , 

L'SSTTB2'-L'SSTABLE', 
L'SSTTB3'-L'SSTABLE', 
L'SSTTBA'-L'SSTABLE' , 
L'SSTTBS'-L'SSTABLE' , 

0 

L'SSTTB7'-L'SSTABLE' , 
L'SSTTBS'-L'SSTABLE' ), 


X 

X 

X 

X 

X 

X 

X 

X 

X 


SST1PTR 
SST2PTR 
VASPI 

VHSTW , X 
VPSTG , X 
VSCCA , X 
VSC1 (31 , X 
VSC3 (3) , X 
VSNA , X 
VSNA1 , X 
VSSCA , X 
VSSFB , X 
VSTG 


GOTO ( ,MSS05,MSS10,MSS20,MSS30,MSS40,MSS50,MSS55,MSS6Q,M3S70,X 
MSS80) DGSSM 
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HSS05, 

SSOOOO. 

SSOOIO. 


CLASP KERNEL 10 SWITCH SELECTOR PROCESSING 


LOCK T1INT,T2INT,EX1INT,EX2INT,EX3INT,EX4INT,EX5INT,EX6INT, * 
EX7INT.EX8INT.EX9INT 

EASE » FALSE 

IF DVASW LAND HSKSSS4C 

THEN DVASW ■ DVASW LAND MSKSSWV 

IF VASPI LAND MSKSSS4C THEN GOTO SS0060 END 

.EGP08 "RESCHEDULE TIMER 1 (NOT CODED)" 

VSAPI > MSKSSS4C 
SSTIPtR » L'SSTSIVB'-L'SSTABLE* 

GOTO SS 1050 

END 

IF DVASW LAND MSKSSSPC 

THEN DVASW a DVASW LAND MSKSSWV 

. EGPOR "RESCHEDULE TIMER 1 (NOT CODED)" 

VASPI « MSKSSSPC 

SSTIPTR * L'SSTSIVA'-L'SSTABLE* 

GOTO SS 1 050 

END 

IF DVASW LAND MSKSST6C 

THEN DVASW ■ DVASW LXOR MSKSST6C 



VASPI = VASPI LOR 

MSKSST6 


DVMC6 a DVMC6 LOR 

MSKM6T6C 


SSTIPTR - L*SSTTB6C'-L 9 SSTABLE' 

END 

, SSTUPD ( a VATRR) ' 

GOTO SS 1 050 

'UPDATE SS TIME 


IF DVASW LAND MSKSSCS1 

THEN VSC1(0),VSC1(1),VSC1(2) a S3T 1PTR , VA SP I , V ATRR 
VASPI ■ MSKSSCL1 

. SST UPD ( » VATRR) "UPDATE SSTIME" 

FTADV a TRUE 

IF DVASW LAND MSKSST6A 

THEN DVASW a DVASW LXOR MSKSST6A 
DVMC6 a DVMCfi LOR MSKM6T 6 A 
SSTIPTR « L'SSTTB6A'-L'SSTABLE' 

ELSE IF DVASW LAND MSKSSS4 1 

THEN DVASW ■ DVASW LXOR MSKSS341 

SSTIPTR » L'SSTS4C1 '-L'SSTABLE* 
ELSE DVASW « DVASW LXOH MSKSST6B 
DVMC6 a DVMC6 LOR MSKM6T6B 
SSTIPTR » L'SSTTBftB'-L'SSTABLE' 

END 

END 

GOTO SS 1 050 

END 

IF FSSAC 

THEN GOTO SS0060 
ELSE GOTO SSOOOO 

END 

FSSAC a FALSE 

IF SSTABLE(O.SSTIPTR) NQ MSKSSEND 

THEN . SSTUPD ( ■ VSTGO) "UPDATE SS TIME" 

VSTGO « VSSRT - VSTGO 

IF VSTGO LS KS3500MS THEN GOTO MSS30 END 

IF DFTUP 


- 164 - 



SS0015. 


SS0170. 


CLASP KERNEL 10 SWITCH SELECTOR PROCESSING 


THEN DVTGB ■ DVTGB + VGB I A 
VGBIA ■ 0. 

DFTUP ■ FALSE 
GOTO S30010 

ELSE IF DVASW THEN GOTO SSU170 END 

VSSTM » VSTGO + DVTRB - DVTGB - KCSSK 
DVSST » VSSTM + DVTMR 

DGSSM ■ 4 ''SET S3 ENTRY FOR MSS30 ' ' 

IF NOT DFIL3 

THEN , EGPOfl "RE8CHED T 1 ( NOT CODEO)" 

END 

END 

GOTO SS0060 

END 

IF DVASW THEN GOTO SS0170 END 

DIRECT 

"READ REAL TIME CLOCK INTO TEMP" 

END 

DVSST * DVTMM ♦ KSS500S ♦ ((TEMP - DVRTC LAND MSKRTC) RSH 2) 
DGSSM ■ 1 "SET S3 ENTRY INDEX FOR MSS05" 

IF NOT DFIL3 THEN .EGP08 "RESCHEDULE T 1 (NOT CODED) "END 

GOTO SSOOhO 

IF NOT DVASW LAND MSKSSCS3 

THEN IF DVASW LAND MSKSSACQ 

THEN DVASW a DVASW LXOR MSKSSACQ 

SST2PTR ■ L'SSTGAIN'-L'SSTABLE' 

, SSTUPD ( » VATR4) "UPDATE SS TIME" 

ELSE IF DVASW LAND MSKSST6D 


END 

END 

FCLS4 a TRUE 
FT AD V a FALSE 
FHST « TRUE 
.SS210 "SET 
GOTO SSOOOO 

END 

IF VASPI THEN GOTO 

VSC3 ( 0 ) , VSC3C1), VSC3 ( 2 ) « SST1PTR, VASPI, VATRR 
VASPI a MSKSSCL3 

,SSTUPD(s VATRR) "UPDATE SS TIME" 

FTADV = TRUE 
FHST = TRUE 

IF DVASW LAND MSKSSGNS 

THEN DVASW a DVASW LXOR MSKSSGNS 

SST1PTR a L'SSTGSS'-L'SSTARLE" 

GOTO SS0230 

END 

IF DVASW LAND MSKSSSBL 

THEN DVASW a DVASW LXOR MSKSSSBL 


THEN DVASW a DVASW LXOR MSKSST6D 

SST2PTR » L'SSTTBBD'-L'SSTABLE' 

• SSTUPD ( a VATR4) "UPDATE SS TM" 
ELSE DVASW a DVASW LXOR MSKSSLI 

SST2PTR a L'SSTALU'-L'SSTABLE' 
VATR4 a 0. 


UP CLASS 4 ALTERNATE SEQUENCE" 


SS0060 . END 
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SS0230, 

SS0060. 

MSS 1 0 . 

SS1050. 

MSS20. 


MSS30. 


SST1PTR • L'SSTSBLO'-L'SSTABLE' ' 
GOTO SS0230 

END 

IF DVASW LAND MSKSSSBH 

THEN DVASW ■ DVASW LXOR MSKSSSBH 

SST1PTR • L ' SSTSBHI '-L'SSTABLE' ' 
GOTO SS0230 

END 

IF DVASW LAND MSKSSSBO 

THEN DVASWc DVASW LXOR MSKSSSBO 

SST1PTR * L'SSTSBOM'-L'SSTABLE* 

GOTO SS0230 

END 

IF DVASW LAND MSKSSECV 

THEN SST1PTR ■ L'SSTECSV'-L'SSTABLE' 

GOTO SS0230 

END 

IF DVASW LAND MSK3SEC1 

THEN SST1PTR ■ L ' SSTECS 1 * -L ' SST ABLE ' 

ELSE SST1PTR « L ' SSTTB3 A • -L ' SST ABLE * 
DVASW = DVASW LXOR MSKSST3A 

END 

.SS210 ' 'SET UP SS TABLE' ' 

GOTO SS0000 
IF NOT FASE 

THEN FASE » TRUE 

UNLOCK "RELEASE PREVIOUSLY ENABLED 

END 

GOTO SSEXIT 

VASPI, VATRR, FCLS4 ■ 0 
DVASW ■ DVASW LAND MSKSSWV 
.EGP08 "RESCHEDULE TIMER 1 

FTADV ■ TRUE 

SST1PTR » SSTTBPTR l DTBID - 1) 

.SS210 ' 'SET UP NEXT SS* ' 

IF FSSAC THEN GOTO MSS20 

VSSW ■ KSSB1 

FHST ■ TRUE 

GOTO SSOOOO 

IF FSSIO 

THEN DIRECT 

" ISSUE. FORCED SS RESET" 

END 

END 

FHST « FALSE 

SSTUPQ (K3SB8, 1) "SCHEDULE SS CHECK, MSS05" 
VSSW ■ KSSB5 
GOTO SS0060 
FSSAC » TRUE 

VSN A , VSNA1 ■ VSNA RSH 2 LAND MSKSSSNA 
IF NOT VSNA 

THEN FSSAC ■ FALSE 

.SS201 "ADVANCE TO NEXT SS" 

GOTO SSOOOO 

END 


INTERRUPTS' • 


(NOT CODED) ' ' 


END 
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MSS4Q . 


SS4000. 


MSSrtO . 


MSS55. 


VSTG ■ VSNA LAND VPSTQ 
FSSIO ■ VSTG 

IF NOT FHST THEN GOTO SS4000 END 

IF DFLT EO 2 THEN GOTO SS4000 END 

DIRECT 

• 'READ SS FEEDBACK REGISTER INTO TEMP ' ' 

END 

IF NOT TEMP LAND MSKSSHS THEN GOTO SS4000 END 

IF FSSIO 

THEN DIRECT 

' 'ISSUE SS RESET ' ' 

END 

END 

.SSTUPQ(KSSB4,5) ''SCHEDULE STAGE AND ADDRESS ISSUANCE MSS40 ' ' 
VSSw a KSSB5 
GOTO SS0060 

FOR I s 0 TO 22 ''DELAY BEFORE ISSUING STAGE AND ADDRESS'* 

A a I 

END 

IF FSSIO 

THEN DIRECT 

''ISSUE STAGE AND ADDRESS FROM VSNA'' 

END 

END 

.SSTUP0(VSSW,6) ''SCHEDULE ADDRESS VERIFICATION, MSS50 ' ' 

FOR I » 0 TO 17 ''DELAY FOR DOM TELEMETRY'' 

A a I 

END 

DIRECT 

"OUTPUT SS AND DO REGISTERS VIA DOM TELEMETRY" 

END 

GOTO SS0060 

VSCCA * VSNA LXOR MSKSSHS 
VSSCA = VSCCA LAND MSKSSHS 
IF VSTG 

THEN DIRECT 

"READ SS FEEDBACK REGISTER INTO TEMP" 

END 

VSSFB a TEMP LAND MSKSSHS 
ELSE VSSFB a VSSCA 

END 

IF VSSFB NO VSSCA THEN GOTO SS5540 END 

IF VASPI LAND MSKSSS4C 

THEN DFILE « DFILE LOR MSKFPSIS 
DVSST a 1.E10 
GOTO SSEXIT 

END 

IF NOT VSSRT THEN GOTO MSS60 END 

, SSTUPD ( » DVTR8) "UPDATE SS TIME" 

IF VSSRT - DVTRB LQ KSSRB THEN GOTO MSS60 END 

VSSTM = VSSRT - DVTGB - KSSRB 
DVSST « VSSTM * DVTMR 

DGSSM a fl ''SET SS ENTRY INDEX FOR MSS60" 

IF NOT DFIL3 

THEN , EGP08 "RESCHEDULE TIMER 1 (NOT CODED)" 
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SS5540. 

SS5570. 

SS5580. 


MSS60. 


END 

IF VSSFB EQ 0 AND VSSCA NO MSKSSZF8 THEN GOTO M8355 END 

GOTO SSEXIT 
IF FSSIO 

THEN DIRECT 

' 'ISSUE S3 RESET' ' 

END 

END 

.SSTUPQ(K8SB6, 10) "SCHED COMPLEMENTED ST AGE , ADDRESS , MSS80 ' ' 
TEMP ■ (VSSCA LXOR VSSFB) L3H 7 

IF TEMP LS 0 THEN GOTO SS5580 END 

TEMP » TEMP LSH 1 

GOTO SS5570 

TEMP ■ TEMP LSH 1 

IF NOT TEMP THEN GOTO SSEXIT END 

DVMC4 ■ DVMC4 LOR MSKM4SSB 
IF FFBCH 

THEN FFBCH « FALSE 
DIRECT 

"SET SS CHANNEL B BIT IN INTERNAL CONT REG" 

END 

DVICR » DVICR LOR MSKICRSB 

END 

.UTR30 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER SS FEEDBACK, VSSFB" 

END 

GOTO SSEXIT 

TEMP « VSTG LXOR MSKSSRD 
IF FSSIO 

THEN DIRECT 

"ISSUE READ COMMAND FROM TEMP" 

END 

END 

DIRECT 

"READ REAL TIME CLOCK INTO TEMP" 

END 

,SSTUPQ(KSSB2,9) "SCHEDULE READ RESET, MSS70" 

TEMP a VSN A LSH 2 LOR TEMP LAND MSKRTC 
.UTR30 "DELAY FOR TELEMETRY AS REQUIRED" 

DIRECT 

"TELEMETER STAGE/ADDRESS AND READ TIME, TEMP" 

END 

IF NOT DFACQ "COMPRESS DATA WHEN NOT OVER STAT. (NOT CODED)" 
THEN TEMP a DVDCT + MSKSSDCT 

• MPC80 (TEMP) "COMPRESS TIME AND TAG" 

TEMP a (VSNA RSH 3) ♦ MSKSSDCS 
. MPC80 ( TEMP) "COMPRESS STAGE AND ADDRESS" 

END 

IF VASPI LAND MSKSSS4C 
THEN VASPI a 0 

DFILE a DFILE LOR MSKFPSCR 

END 

IF VSNA 1 EQ MSKSSHIG 

THEN DVMC7 ■ DVMC7 LOR MSKM7HXG 
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GOTO SSEXIT 

END 

IF VSNA1 EQ MSKSSLOG 

THEN DVMC7 » DVMC7 LOR MSKM7L0G 
GOTO SSEXIT 

END 

IF VSNA1 EQ MSKSSOMG 

THEN DVMC7 « DVMC7 LOR MSKM70MG 
GOTO SSEXIT 

END 

IF VSNA1 EQ MSKSSS4B 
THEN IF FBRNI 

THEN DVMC5 * DVMC5 LOR MSKM54B 1 
ELSE DVMC6 * DVMC6 LOR MSKM68BR 

END 

end 

GOTO SSEXIT 
MSS70. IF FSSIO 

THEN DIRECT 

•'RESET SS READ COMMAND'' 

END 

END 

.SSTUPQ(KSSH3, 1) ''SCHEDULE HUNG STAGE TEST, MSS05 ' ' 

. SS20 1 ''ADVANCE TO NEXT S3'' 

VSSW = KSSB1 

FHST » VHSTW LAND VSTG LXOR VSTG 
IF VSNA1 EQ MSKSSWVO 

THEN DVASw * DVASW LXOR MSKSSEC1 
DFWV a FALSE 
GOTO SSEXIT 

END 

IF VSNA1 EQ MSKSSWVO 

THEN DVASW a DVASW LXOR MSKSSECV 
DFWV a TRUE 
GOTO SSEXIT 

END 

IF VSNA1 EQ MSKSSSCC 

THEN DVDPM a DVDPM LOR MSKDIN9 

END 

GOTO SSEXIT 

MSSBO. VSNA * V SCC A 
IF FSSIO 

THEN DIRECT 

'•ISSUE STAGE AND COMPLEMENTED ADDRESS'' 

END 

END 

.SSTUPQCKSSB7, 7) "SCHEDULE READ COMMAND, MSS55" 

FOR I a 0 TO 41- "DELAY FOR DOM TELEMETRY" 

A a I 

END 

DIRECT 

"OUTPUT SS AND DO REGISTERS VIA DOM TELEMETRY t ' 

END 

GOTO SSEXIT 

CLOSE , SS20 1 "SS TABLE ADVANCE ROUTINE" 
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IF FTADV 

THEN SST1PTR « SST1PTR + 1 
ELSE SST2PTR « SST2PTR ♦ 1 


EXIT 

CLOSE 

SS2160. 


END 

.SS210 ''SET UP NEXT SWITCH SELECTOR'* 

' ' SS201 ' ' 

.SS210 "SS SELECTION AND SETUP ROUTINE'' 

IF FTADV THEN GOTO SS2020 END 

IF SSTABLE(0,SST2PTR) GQ 0 THEN GOTO SS2070 END 

FCLS4 a FALSE 

DVMC6 a DVMC6 LXOR MSKM6LUI 
DVMC7 » DVMC7 LXOR MSKM7T6D 
GOTO SS2090 

THEN VASPI a MSKSSS4C 

DVASW a DVASW LAND MSKSSWV 
SST1PTR » L'SSTSIVR'-L'SSTABLE' 

GOTO SS2020 

END 

IF VASPI LAND MSKSSCL3 

THEN SST1PTR, VASPI, VATRR a VSC3C0), VSC3(i), VSC3C2) 
GOTO SS2020 

END 

IF VASPI LAND MSKSSCL 1 

THEN SST1PTR, VASPI, VATRR ■ VSCl(O), V8C1U), VSC1C2) 
GOTO SS2020 

END 

VASPI, VATRR » 0 
IF FT60P 

THEN SST1PTR a L • SSTTB5A ' -L ' SSTABLE ' 

FT60P a FALSE 

ELSE SST1PTR a L ' SSTTB5B • -L • SSTABLE ' 

END 

GOTO SS2020 


SS2030. IF NOT FCLS4 THEN GOTO SS2040 

SS2070. IF SSTABLE(0,SST1PTR) ♦ VATRR - KSS500MS GQ 
SSTABLE(0,SST2PTR) ♦ VATR4 
THEN FTADV » FALSE 

VSSRT « SSTABLE(0,SST2PTR) ♦ VATR4 
VSNA a SSTABLE(1,SST2PTH) 

SS2090. ELSE FTADV a TRUE 


SS2040. 


VSSRT a SSTARLECO.SSTIPTR) ♦ VATRR 
VSNA a SSTAB1.E(1,SST1PTR) 


END 

SS2050. VHSTW a VSNA RSH 2 LAND MSK88SSB 
EXIT "SS210" 

SSEXIT. EXIT "MSSOO'' 

PROC .SSTUPD (» TINE) "SS TIME UPDATE ROUTINE" 
DECLARE FIXED, TIME-2 
DIRECT 

"READ REAL TIME CLOCK INTO TEMP" 


END 

X 


END 

TIME, DVTRB a DVTGB ♦ DVTRR «• (TEMP » DVRTC LAND MSKRTC) RSH 2 
EXIT ' 'SSTUPD " 

PROC . SSTUPQ (BIAS, ID) "UPDATE SS TIME AND SCHEDULE REQUESTED FUNC" 
DECLARE FIXED BIAS -2 
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SWITCH SELECTOR PROCESSING 


SS2020 


EXIT 


DECLARE INTEGER, ID 
DIRECT 

'•READ REAL TIME CLOCK INTO TEMP'' 

IE VASPI LAND MSKSSSPC 

, IE SST ABLE (0.SST1PTR) GQ 0 THEN GOTO SS2030 END 

END 

DGSSM ■ ID 

DVTRB » DVTGB + DVTRR + CTEMP - DVRTC LAND MSKRTC) RSH 2 
VSSTM s RIAS + DVTRR + (TEMP - DVRTC LAND MSKRTC) RSH ? 

DVSST » VSSTM + DVTMR 
IF NOT DEIL3 

THEM ..EGP08 ''RESCHEDULE TIMER 1 (NOT CODED)'' 

END 

' ' SSTUPQ ' ' 



CLASP KERNEL 11 


ATM TASK KEYING 


PROC .TASKKEY (PRIORITY , TSKPTR) • • ATM TASK KEYING ROUTINE" 

DECLARE INTEGER, X 

PRIORITY , "PRIORITY LEVEL OF TASK BEING KEYED" X 

TSKPTR , "LOCATION POINTER TO TASK BEING KEYED" X 

I , "OVERFLOW TABLE POINTER CHAIN INDEX" X 

J "OVERFLOW TABLE OPEN-SLOT INDEX" 


••PRIORITY CONTROL TABLE CONTAINS ONE ENTRY FOR EACH SYSTEM 
"PRIORITY LEVEL. FOR EACH ENTRY THERE ARE FIVE ITEMS. 

•' 1. LOCATION POINTER TO THE NEXT EXECUTABLE INSTRUCTION 

•• OF THE TASK CURRENTLY ASSIGNED TO THAT PRIORITY LEVEL 

•• OR ZERO IF NO TASK IS CURRENTLY ASSIGNED. 

" 2 . ) 

" 3. ) TASK REGISTER CONTENTS (INITIALLY SET TO ZERO), 

" 4. ) 

" 5. POINTER TO THE BEGINNING OF THE PRIORITY OVERFLOW 

•' TABLE CHAIN FOR THAT PRIORITY LEVEL. A VALUE OF ZERO 

" INDICATES END OF CHAIN. 

i • 

" NOTE THE NUMBER OF REGISTERS SAVED FOR A TASK WAS ARBITRARI- 
" LY CHOSEN FOR THIS EXAMPLE AND MAY BE ADJUSTED AS 

" REQUIRED. 

DECLARE INTEGER ATMPCT (5,10) 

• i 

"THE PRIORITY OVERFLOW TABLE IS USED FOR KEYING TASKS ON A 
••PRIORITY LEVEL WHICH IS CURRENTLY ASSIGNED TO ANOTHER TASK. 
"THE ENTRIES ARE NOT ALLOCATED TO A FIXED PRIORITY BUT ARE 
"ASSIGNED DYNAMICALLY AS REQUIRED. ALL OVERFLOW ENTRIES FOR 
"EACH PRIORITY LEVEL ARE CHAINED TOGETHER SUCH THAT THE TASKS 
"CAN BE EXECUTED ON A FIRST-IN-FIRST-OUT BASIS. EACH ENTRY 
• 'CONSISTS OF TWO ITEMS. 

" 1. POINTER TO NEXT ENTRY IN THE CHAIN. A VALUE OF ZERO 

' ' INDICATES END OF CHAIN. 

" 2.- LOCATION POINTER TO THE BEGINNING OF THE TASK FOR 

" THAT ENTRY. A VALUE OF ZERO INDICATES THAT THE ENTRY 

" IS CURRENTLY NOT ASSIGNED TO ANY TASK. 

DECLARE INTEGER ATMPOVFT (2, 26) 

• i 

"NOTE SINCE AN END-OF-CHAIN INDICATOR HAS A VALUE OF ZERO, 

" THE FIRST ENTRY IN THE OVERFLOW TABLE CANNOT BE USED. 

• • 

LOCK "INHIBIT ALL INTERRUPTS" 

i i 

"IF THE REQUESTED PRIORITY LEVEL IS NOT CURRENTLY ASSIGNED, 
"INITIALIZE THE ENTRY FOR THIS TASK. 


IF ATMPCT(0, PRIORITY) EQ 0 

THEN ATMPCT(0, PRIORITY) ■ TSKPTR 

ATMPCT(1, PRIORITY), X 

ATMPCT(2, PRIORITY), X 

ATMPCT(3, PRIORITY) * 0 

' ' ii 

"OTHERWISE, SEARCH FOR THE END OF THE OVERFLOW POINTER CHAIN. " 

• I HI 
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CHNSRCH 


♦ 

i 

i 

i 


i 

i 

i 

i 

SLTFND. 


FAIT 

TERM 


CLASP KERNEL 11 ATM TASK KEYING 


ELSE I * ATMPCTC4.PRI0RITY) 

IF I NQ 0 

THEN IF ATMPOVFT (0,1) NO 0 

THEN I a ATMPOVFT (0,1) 
GOTO CHNSRCH 

END 

END 


» • * 

•WHEN THE END OF THE OVERFLOW POINTER CHAIN HAS REEN FOUND, »• 

* SEARCH FOR AN EMPTY SLOT IN THE OVERFLOW TABLE. *' 

* ii 

FOR J a 1 TO 25 

IF ATMPOVFT (1, J) EG) 0 THEN GOTO SLTFND END 

END 

STOP »'HALT IF OVERFLOW TABLE IS FULL'* 

i ii 

* ADD THIS ENTRY TO THE END OF THE OVERFLOW POINTER CHAIN AND •' 

•STORE THE TASK POINTER IN IT. ■' 

» » ! 


IF I NO 0 

THEN ATMPOVFT (0, I) a J 
ELSE ATMPCTU, PRIORITY) a j 

END 

ATMPOVFT ( 0 , J ) « 0 
ATMPOVFT C l f J) « TSKPTR 

END 

UNLOCK ••RELEASE INTERRUPTS AS REQUIRED'* 

* * T ASKKE Y * I 
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HAL COMMON DATA DECLARATIONS 


DECLARE SCALAR, 

DKT 1 , 

D V A 1 , 

DVA2 , 

D V A 3 , 

D VA 4 , 

DVAb , 

D V A 6 , 

DVDT , 

DVEOF , 

DVFMC, 

DVFOM, 

DVFOR, 

DVMAS, 

DVMFR, 

DVMLR, 

DVT AS , 

DVTB , 

DVT I , 

DVVSQ, 

D V 1 MR , 

STEMP: 

DECLARE VECTOR, 

DVCA, 

DVCC, 

DVD , 

DVDA, 

DVDF, 

DVDC, 

DVDM, 

DVF , 

DVG , 

DVRC, 

DVTH j 

DECLARE INTEGER, 

dflt, 

DGMLM, 

DGSSM , 

DGST2 , 

DKMIR CONSTANT (163), 

DKRTCOVF CONSTANT (8192), 

DKRTCSEC CONSTANT (4063), 

DKTD CONSTANT (14), 

DLPRL ARRAY (3) CONSTANT (60794,60952,101562), 
DLPTl. ARRAY(3), 

DLTTL ARRAY(12), 

DQST2 , 

DTBID, 

DVACT, 

DVDGS, 

DVERT, 

dvhda, 

dvhdh, 

DVLRC, 

DVMLD, 
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HAL COMMON DATA DECLARATIONS 


DVMLT, 

DVM05, 

DVM06, 

DVP, 

DVPTG, 

DVRE ARRAY ( 3 ) # 
DVRTC, 

DVSST 9 
DVTD, 

DVTEX, 

DVTGB, 

DVTMM f 
DVTMR, 

DVTRB, 

DVTRR, 

DVTRS, 

DVTT1, 

DV2TG, 

EPTINDX, 

GST1M, 

ITEMP, 

VTOLO; 

DECLARE BIT(l), 

APSTAT , 

ARSTAT , 

CC 1 ST AT j 
CSS1AT , 

CTSTAT , 

DFACQ , 

DFDBF , 

DFDTL , 

DFIL1 , 

DFIL2 , 

DFIL3 , 

DFPHC , 

OFSMC , 

DFTBCEP , 

DFTUP # 

DFWV „ 

DFZER , 

DK API ARRAY (4) , 
DTSTAT , 

DPSTAT , 

DVSTAT , 

EBSTAT , 

HSSTAT # 

IGSTAT # 

MSSTAT , 

NESTAT , 

OGSTAT , 

PASTAT , 

PGSTAT , 

PPSTAT ARRAY ( 3 ) , 
RSSTAT , 

SASTAT , 
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HAL COMMON DATA DECLARATIONS 

TB1STAT, 

TB57STAT, 

TOST AT , 

TGSTAT # 

TTSTAf , 

T2STAT ARRAY (11)* 

DECLARE BITC26), 

DFILE # 

DFMDI f 

DVAC ARRAYC3), 

D V A S ^ , 

DVDRM, 

DVEMR, 

DVICR, 

D V I H # 

DVLDR, 

DVMC4, 

DVMC5, 

DVMC6, 

DVMC7, 

VTMC, 

BTEMF; 


DECLARE BIT ( ?6 ) CO 

NSTANT 

9 


MSKACCELA 

(OCT 

*777700000 

•). 

MSKACCELB 

(OCT 

* 0000 1 7776 


MSKDCSCOHP 

(OCT 

9 774 000000 


MSKDCSDO 

(OCT 

1 000040000 


MSKDCSER 

(OCT 

*000077776 


MSKDCSMC 

(OCT 

*770000000 


MSKDCSMODE 

(OCT 

• 000000020 


MSKDCSSB 

(OCT 

* 004000000 


MSKDCSTERM 

(OCT 

*200000000 


MSKDIN9 

(OCT 

* 000004000 


mskemrladb 

(OCT 

*000001000 


MSKERRORTAG 

(OCT 

* 000070000 


M3KFMDREP 

(OCT 

*000100000 


MSKFPSCORO 

(OCT 

* 100000000 


MSKFPSINT2 

(OCT 

* 000040000 


MSKFPS I SS A 

( OCT 

* 001000000 


MSKGIMBALA 

(OCT 

*377700000 


mrkicrbg 

(OCT 

*000000020 

') . 

HSKICRCA 

(OCT 

*000040000 


MSKICRSSCB 

(OCT 

1 000010000 


MSKICRSWG 

(OCT 

» 000002000 


MSKINT 

(OCT 

* 157740000 


MSKMC4AMF 

(OCT 

* 000000100 


MSKMC4SSCB 

(OCT 

* 000001 000 


MSKMC54B1I • 

(OCT 

*000000100 


MSKMC6004 

(OCT 

*000000400 


MSKMC6LHI 

(OCT 

* 000010000 


MSKMC6TB6A 

(OCT 

*000002000 

•). 

MSKMC6TB6H 

(OCT 

•000000010 


MSKMC6TB6C 

(OCT 

• 000000040 


MSKMC68BRI 

(OCT 

*400000000 


MSKMC7HIG 

(OCT 

♦004000000 
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COMMON DATA DECLARATIONS 


MSKMC7LOG 

(OCT 

MSKMC70MG 

(OCT 

MSKMC7T6D 

(OCT 

MSKRTC 

(OCT 

MSKRTCRESET 

(OCT 

MSKSCCO 

(OCT 

MSKSSACQU 

(OCT 

MSKSSCLS 1 

(OCT 

MSKSSCLS3 

(OCT 

MSKSSCL 1 

(OCT 

MSKSSCL3 

(OCT 

MSKSSDCS 

(OCT 

MSKSSDCT 

(OCT 

MSKSSECS V 

(OCT 

MSKSSECS 1 

(OCT 

MSKSSGNSS 

(OCT 

MSKSSHIG 

(OCT 

MSKSSHS 

(OCT 

MSKSSLI 

(OCT 

MSKSSLOG 

(OCT 

MSKSSNSEND 

(OCT 

MSKSSOMG 

(OCT 

MSKSSREAD 

(OCT 

MSKSSRESET 

(OCT 

MSKSSSBHI 

(OCT 

MSKSSSBLO 

(OCT 

MSKSSSBOM 

(OCT 

MSKSSSCC 

(OCT 

MSKSSSIVB 

(OCT 

M8K8SSN A 

(OCT 

MSKSSSPEC 

(OCT 

MSKSSSSB 

(OCT 

MSKSSS4C0 

(OCT 

MSKSSS4C1 

(OCT 

MSKSSTB6A 

(OCT 

MSKSSTB6B 

(OCT 

MSKSSTB6C 

(OCT 

MSK SSTB6D 

(OCT 

MSKSST3A 

(OCT 

MSKSST6C 

(OCT 

MSKSSWV 

(OCT 

MSKSSWVC 

(OCT 

MSKS9HV0 

(OCT 

MSKSSZFSF 

(OCT 

MSKTMCO 

(OCT 

MSKTMC1 

(OCT 

MSKTMC2 

(OCT 

MSKTMM3 

(OCT 

MSKTMC4 

(OCT 

MSKT2INT 

(OCT 


010000000* ), 
020000000 1 ) , 
100000000'), 
000037776'), 
007777540'), 
000100000'), 
000000004' ), 
000003770' ), 
077774000'), 
040000000 ' ) , 
100000000' ), 
500000000'), 
405400000'), 
002000000'), 
001000000' ), 
040000000* ), 
100720000'), 
003770000'), 
000000002' ) , 
100520000' ), 
377777776'), 
100070000'), 
400000000 ' ) , 
200000000'), 
010000000'), 
020000000' ), 
004000000' ) , 
100310000 ' ) , 
020230000'), 
135770000' ) , 
200000000' ), 
174000000' ), 
400000000' ) , 
000000400 ' ) , 
000002000' ) , 
000001000* ) , 
100000000 ' ) , 
000200000* ) , 
000400000 ' ) , 
004000000' ), 
003000000 ' ) , 
101050000'), 
101450000' ) , 
002000000* ) , 
700000000' ) , 
710000000' ), 
720000000'), 
730000000* ) , 
740000000' ), 

100000000' ) j 
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UTROOi 

E 


CLOSE 
uTPni t 
E 


CLOSE 

UTR02i 

E 


CLOSE 

UTR03» 

E 


CLOSE 
UTR04 » 
E 


CLOSE 

UTROi 


TROO« 


S 

C 

E 

TR05: 

CLOSE 
UTP30 t 


TR35i 

S 

F 


CLOSE 

UTR24t 


TR20s 


PROGRAM j /*TFLEMETRY DELAY FOR MODE REG SETTING OF 70*/ 
VTMC = MSKTMCO; 

CALL UTRO; /*PERFORM DELAY AS REQUIRED*/ 

UTROO; 

PROGRAM; /*TFLEMFTRY DELAY FOR MODE REG SETTING OF 71*/ 
VTMC ■ MSKTMClS 

CALL UTRO; /*PERF ORM DELAY AS REQUIRED*/ 

UTROI } 

PROGRAM; /^TELEMETRY DELAY FOR MODE REG SETTING OF 72*/ 
• • 

VTMC * MSKTMC2; 

CALL UTRO; /*PERFORM DELAY AS REQUIRED*/ 

UTR02; 

PROGRAM; /*TELEMETRY DELAY FOR MODE REG SETTING OF 73*/ 
VTMC « MSKTMC3 j 

CALL UTRO; /*PERF ORM DELAY AS REQUIRED*/ 

UTR03J 

PROGRAM; /*TELEMETR Y DELAY FOR MODE REG SETTING OF 74*/ 
VTMC * MSKTMC4; 

CALL UTRO; /*PERFORm DELAY AS REQUIRED*/ 

UTR04; 

PROGRAM; /*TELEMETR Y DELAY FOR LEVEL 0*/ 

DECLARE INTEGER, 

KTELBI AS CONSTANT (21, 

VT I M ; 

/♦INHIBIT ALL INTERRUPTS EXCEPT TCL*/J 
READ (CLOCK) VTIM; 

IF BIT (VTIM - DVTD) >= DKTD THEN GO TO TR05; 

14 TO 26 

RELEASE PREVIUUSLY ENABLED INTERRUPTS 
GO TO TROO: 

WRITE (MUPREG) VTMC; 

DVTD = VTIM + KTELBI AS ; 

UTRO; 

PROGRAM; /*TELEMETRY DELAY FOR INTERRUPT LEVEL 3*/ 
DECLARE INTEGER, 

KTELBI AS CONSTANT (2), 

VTIM; 

READ (CLOCK) VTIM; 

IF BIT (VTIM - DVTD) < DKTD THEN GO TO TR35; 

14 TO 26 

• 

WRITE (MODREG) MSKTMCO: 

DVTD ■ VTIM ♦ KTELBI AS ; 

UTR30; 

PROGRAM; /*TELEMETRY DELAY FOR INTERRUPT LEVEL 2*/ 
DECLARE INTEGER, 

KTELBI AS CONSTANT (2), 

VTIM; 

/♦INHIBIT ALL INTERRUPTS EXCEPT TLC*/; 
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HAL UTILITY ROUTINES 


READ (CLOCK) VTIMj 

IF BIT (VTIM - DVTD) >■ DKTD THEN 00 TO TR25) 

14 TO 26 

ENABLE TIMER 1 INTERRUPT 
00 TO TR20 { 

E 

TR25 1 WRITE (MODRE0) MSKTMC4 1 

DVTD ■ VTIM ♦ KTELBIASj 
CLOSE UTR24 j 
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HAL KERNEL 


1 


INITIALIZATION 


EGPOi PROGRAM; /*SYSTEM INITIALIZATION*/ 

INHIBIT ALL INTERRUPTS 

READ (XACC) VOAC J 
1 

READ ( YACC) VOAC J 
2 

READ (ZACC VOAC ; 

3 

READ (CLOCK ) DVACT ; 

IF DFMDI AND MSKFMDREP •’* 0 
THEN DO; 

SCHEDULE CLOCK SYNC ON T 1 1 N T } 

WRITE CTIM1) lj 
ENABLE TIMER 1 INTERRUPT 
WAIT FOR TIINTJ 

ENDS 

DVRTC,DVTEX, VPPOT » DVACT) 

ovtmm,dvtrr,dvert,dvtgr,dvtrs,dvtmr.dtbid, VTD * Oj 
DFIL1, DFIL2, DFIL3 « TRUE) 

CALL EGP1; /*ACTIVATE INTERRUPT PROCESSOR*/ 

ENABLE TLC INTERRUPT 


FGNC « FALSE; 

DVSST ■ 1 .E 10s 
DVMLT, DVMLD * DKMIRj 

CALL EGP15; /*SCHEDULE FIRST TIMER 1 FUNCTION*/ 

D VP » 1; 

CALL GP002; /*PASS CONTROL TO PHASE ACTIVATION ROUTINE*/ 
CLOCK SYNCi TASK; /*RESPONSE TO TIMER 1 INTERRUPT*/ 

READ (CLOCK) DVACT) 


INHIBIT TIMER 1 INTERRUPT 

CLOSE CLOCK SYNC) 

CLOSE EGPO ; 

MPAOOi PROGRAM; /*PHASE TERMINATION*/ 
DFPHC ■ TRUE; 

INHIBIT AI.L INTERRUPTS 


E 

F 

E 

F 


WRITE (TIM2) MSKRTC)/*LOAD TIMER 2. WITH A LARGE VALUE*/ 
WRITE(ISR) MSKT2INT ;/*RESET ANY PENDING TIMER 2 INTERRUPT*/ 
DVIS1 = DVIH AND NOT MSKT2INT; 

DFIL1, DFIL2 « TRUE; 
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INITIALIZATION 


C 

c 

c 


GP002 i 


GP 0020 s 
F. 

S 


E 

I NP 1 3 * 
E 

F 


F 

F 

F 

S 


F 

C 

C 


n 


E 

INP24* 


F 

E 


ENABLE TLC AND TIMER 1 INTERRUPTS 

CALL GP002?/*ACTIVATE THE NEXT MISSION PHASE*/ 

CLOSE MPAOO: 

PROGRAM;/*MISSION PHASE CONTROL AND ACTIVATION ROUTINE*/ 

DECLARE FGNC BIT(l); 

DECLARE VTD INTEGER | 

IF D VP > 4 THEN ; /*H ALT WHEN EXECUTION IS COMPLETED*/ 

IF DKAPI 

D VP- 1 
THEN DO; 

CALL EGP20 ; /*ST ART PHASE TIME REFERENCE*/ 

DO CASE D VP 1 

GO TO INP13; 

GO TO INP24; 

GO TO INP13; 

GO TO INP24J 

END; 

END; 

ELSE DO; 

D VP ■ D VP ♦ 1; 

GO TO GP0020; 

END; 

ARSTAT, APSTAT,DPSTAT f NESTAT,CC1STAT,MSSTAT, EBSTAT « TRUE; 

S AST AT, D VST AT, TCST AT, PAST AT , TTSTAT , I GST AT , HSSTAT , OGSTA T, T GST AT , 

RSSTAT,CSSTAT,TB1STAT,TB57STAT,PGSTAT * FALSE; 

C.DLPTL] « 0; 

[PPS'TAT] * FALSE; 

(T2STAT3 # FALSE; 

T2STAT * TRUE; 

1 

CALL MINOO;/*PERFORM PHASE 1/3 APPLIC PGM INIT (NOT CODED 3 */ 
CALL EGP18; /*SCHEDULE NEXT TIMER 2 FUNCTION*/ 

DFIL1, DFIL2, DFIL3, DFPHC • FALSE; 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 

CALL N0NINTSEQ1 ;/*PASS CONTROL TO PHASE 1/3 NON- I NTERRUPT SEQ*/ 

CTSTAT, DTSTAT « FALSE; 

(PLPTL] « 0; 

CPPSTAT1 * TRUE; 

[T2STAT] « BIT(0, 1,1, 1,0, 0,1, 1,1, 1,1); 

CALL MIN10j/*PERFORM PHASE 2/4 APPLIC PGM INIT (NOT CODED)*/ 
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INITIALIZATION 


CALL EGP18;/*3CHEDULE NEXT TIMER 2 FUNCTION*/ 

DFIL1, DFIL2, DFIL3, DFPHC ■ FAL3EJ 

C 

C RELEASE PREVIOUSLY ENABLED INTERRUPTS 

C 

CALL N0NINTSEQ2)/*PASS CONTROL TO PHASE 2/4 NON-INTERRUPT 8EQ*/ 
CLOSE GP002J 
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EGPli 


C 

EGPTLCi 


CLOSE 

EGPTli 


CLOSE 

EGPT2« 


HAL KERNEL 2 INTERRUPT PROCESSING 


PROGRAM; /*INTERRUPT PROCESSOR*/ 

SCHEDULE EGPTLC ON TLCINT } 

SCHEDULE EGPT1 ON T 1 INT } 

SCHEDULE EGPT2 ON T2INT } 

SCHEDULE EGPEX2 ON EX2INT } 

SCHEDULE EGPEX4 ON EX4INT } 

SCHEDULE EGPEX5 ON EX5INT } 

SCHEDULE EGPEX6 ON EX6INT j 
SCHEDULE EGPEX8 ON EX8INT } 

RETURN} /* EGP 1 */ 

TASK} /* TLC INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 

RE AD (CLOCK ) DVTEX} 

DFIL2, DFIL3 * TRUE} 

CALL MTSOO } /*PROCESS TLC INTERRUPT*/ 

THE TLC APPLICATION PROGRAM DOES NOT RETURN CONTROL 
EGPTLC} 

TASK} /* TIMER 1 INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 


READ (CLOCK ) DVTT1 } 

DFIL3 * TRUE; 

DO CASE GST 1 M } 

CALL MMLOO} /*PROCESS MINOR LOOP FOR FLIGHT SIM*/ 
CALL MML20} /*PROCESS NORMAL MINOR LOOP*/ 

CALL MSSOO } /*PROCESS SWITCH SELECTOR*/ 

END} 

CALL EGP15} /*SCHEDULE NEXT TIMER 1 FUNCTION*/ 

DFIL3 ■ FALSE} 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 
EGPT 1 } 

TASK} /* TIMER 2 INTERRUPT PROCESSOR */ 

INHIBIT TIMER 2 INTERRUPT 


DFIL1 ■ TRUE) 

DO CASE DGST2) 

CALL MUMOO) 
CALL MLR 10) 
CALL MEPOO) 
CALL MTT10) 
CALL MNUOO) 
CALL MEEOO) 
CALL MCMOO) 
CALL MCM10) 
CALL MCM20) 
CALL MEPWM) 


/*TIME UPDATE 
/♦LADDER RAMP PROCESSOR 
/♦EVENTS PROCESSOR 
/♦TIME TILT GUIDANCE 
/♦NAVIGATION UPDATE IMPLEMENT 
/♦TIME BASE 8 ENABLE 
/•PHASE 2/4 CONTROL MODULE 
/♦PHASE 2/4 CONTROL MODULE 
/♦PHASE 2/4 CONTROL MODULE 
/♦WATER METHANOL ACTIVATE 


(NOT CODED)*/ 
(NOT CODED)*/ 

*/ 

(NOT CODED)*/ 
(NOT CODED)*/ 
(NOT CODED)*/ 
(NOT CODED)*/ 
(NOT CODED)*/ 
(NOT CODED)*/ 
(NOT CODED)*/ 
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HAL KERNEL 2 


INTERRUPT PROCESSING 


CLOSE 
EGPEX2 1 

CLOSE 
EGPEX4 t 

CLOSE 

EGPEX5* 

CLOSE 

EGPEX 61 


CALL MEROO; /*EXTRA ACCELEROMETER READ (NQT 

END; 

CALL EGP18; /*SCHEBULE NEXT TIMER 2 FUNCTION*/ 
DFIL1 ■ FALSE; 

RELEASE TIMER 2 INTERRUPT 

EGPT2; 

TASK; /* EXTERNAL 2 INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 
READ (CLOCK ) DVTEX; 

DFIL2, DFIL3 ■ TRUE; 

CALL MDP28; /*SC INITIATION OF S2/S4B SEPARATION (NOT 
DFIL2, DFIL3 « FALSE; 

RELEASE PREVIOUSLY ENABLED INTERUPTS 

EGPEX2; 


TASK; /* EXTERNAL 4 INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 
READ (CLOCK ) DVTEX; 

DFIL2, DFIL3 ■ TRUE; 

CALL MTB50; /*S4B ENGINE OUT (NOT 

DFIL2, DFIL3 « FALSE; 

RELEASE PREVIOUSLY ENABLED INTERUPTS 

EGPEX4; 


TASK; /* EXTERNAL 5 INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 
READ (CLOCK) DVTEX; 

0FIL2, DFIL3 *= TRUE; 

CALL MTB30; /*S1C OUTBOARD ENGINE OUT (NOT 

DFIL2, DFIL3 ■ FALSE; 

RELEASE PREVIOUSLY ENABLED INTERUPTS 

EGPEX5 ; 


TASK; /* EXTERNAL 6 INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 
READ (CLOCK ) DVTEX; 

DFIL2, DFIL3 « TRUE; 

CALL MTB40 ; /*32 PROPELLANT DEPLETION (NOT 

DFIL2, DFIL3 ■ FALSE; 


CODED)*/ 


CODED)*/ 


CODED)*/ 


CODED)*/ 


CODED)*/ 
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HAL KERNEL 2 


INTERRUPT PROCESSING 


CLOSE 

EGPEX 81 


CLOSE 

C 

EGP15I 


EGPI 81 

E 

S 

S 


RELEASE PREVIOUSLY ENABLED INTERUPTS 
EGPEX 61 


TASK* /* EXTERNAL 8 INTERRUPT PROCESSOR */ 

INHIBIT ALL INTERRUPTS EXCEPT TLC 
READ(CLOCK) DVTEX; 

DFIL2, DFIL3 ■ TRUE | 

CALL MDSOOl /*PROCESS DIGITAL COMMAND SYSTEM INPUT*/ 
DFIL2, DFIL3 ■ FALSEl 

RELEASE PREVIOUSLY ENABLED INTERUPTS 

EGPEX 8 J 

CLOSE EGP1I 

PROGRAM* /*TIMER 1 SCHEDULER*/ 

DECLARE KT1BIAS INTEGER CONSTANT (2); 

READ (CLOCK ) ITEMPj 
ITEMP ■ ITEMP - DVRTCJ 

IF ITEMP < 0 THEN ITEMP « ITEMP ♦ DKRTCOVF > 

ITEMP « DVTMM ♦ ITEMP/4 + KTIBlASj 
IF DVMLT <■ ITEMP 
THEN DO* 

ITEMP « 1 j 
GST IM ■ DGMLMj 

END) 

ELSE IF DVMLT <■ DVSST 
THEN DO* 

ITEMP ■ 2 (DVMLT - ITEMP) 1 
GST 1M ■ DGMLMj 

END t 

ELSE DO) 

G3T1M ■ 3 j 
IF DVSST <■ ITEMP 

THEN ITEMP ■ lj 

ELSE ITEMP ■ 2 (DVSST - ITEMP); 

end I 

WRITE (TIM1 ) ITEMP; 

CLOSE EGP15J 

PROGRAM j /*TIMER 2 SCHEDULER*/ 

DECLARE INTEGER CONSTANT, KT2BI AS (3), 

MSEC (4063); 

DGST2 ■ lj 

DV2TG ■ DVTMM ♦ MSEC; 

DO FOR I ■ 1 TO 111 

IF NOT T23TAT THEN GO TO TS210; 

I 

IF DLTTL > DV2TG THEN GO TO TS210; 

I 

DGST 2 ■ I ♦ 1 | 
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DV2TG ■ DLTTL J 
8 I 

TS2l0i END; 

INHIBIT ALL INTERRUPTS EXCEPT T2 AND TLC 


IF DVT20 <■ DVTMH THEN GO TO T2S20J 
READ (CLOCK ) ITEMP; 

ITEMP » ITEHP - DVRTC; 

IF ITEHP < 0 THEN ITEHP ■ ITFMP + DKRTCOVF; 

ITEHP » (DV2TG - DVTHH ♦ DVERT - ITEHP/4 -KT2BIAS)/2t 
IF ITEHP <«0 THEN 
T2S20 » ITEHP » lj 

WRITE (TIH2) ITEHP ; 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 


CLOSE E0P18; 

EGP20 1 PROGRAM; /‘SYSTEM TIH£ UPDATE ROUTINE*/ 


INHIBIT ALL INTERRUPTS EXCEPT TLC 


S 


E 

F 

E 


READ (CLOCK ) ITEMP; 

ITEHP1 ■ ITEHP - DVRTC; 

DVERT « BIT (ITEHPl); 

25 TO 26 

IF ITEMP1 < 0 THEN ITEMP1 » ITEMP1 ♦ DKRTCOVF; 
DVTMM a DVTMM + ITEHP 1/4; 

DVRTC » ITEMP - OVERT; 

DVTRR ■ DVTMM - DVTMR ; 


IF DFIL3 

THEN ; 


ELSE IF DFIL2 

THEN /*RELEASE TIMER 1 INTERRUPT*/ ; 


CLOSE EGP20; 


ELSE IF DFIL1 

THEN /*RELE ASE PREVIOUSLY ENABLED 
INTERRUPTS EXCEPT TIMER 2*/ 
ELSE /‘RELEASE PREV ENABLED INT*/; 


- 187 - 



HAL KERNEL 3 NON-INTERRUPT SEQUENCER 


NONINTSEQli PROGRAM; /*NON-I NTERRUPT SEQUENCER FOR PHASES 1 AND 3 */ 


E 

NISI i 


E 


E 


E 


E 


F. 


E 


E 


f: 


E 


E 


F 


F 


E 


IF 

ARSTAT 

THEN 

DO; 





CALL 

MAROO; 


/♦ACCELEROMETER READ*/ 




CALL 

PERPROC; 

END; 




IF 

SASTAT 

THEN 

DO; 





CALL 

MSAOO | 


/♦SIMULATED ACCEL 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

APSTAT 

THEN 

DO; 





CALL 

MAPOO; 


/♦accelerometer processing*/ 



CALL 

PERPROC; 

END; 




IF 

DVSTAT 

THEN 

DO; 





CALL 

MDVOO; 


/♦F/M CALCULATIONS 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

DPSTAT 

THEN 

DO; 





CALL 

MDPOO J 


/♦DISCRETE PROCESSOR 

(NOT 

CODED ) */ 


CALL 

PERPROC; 

END; 




IF 

NESTAT 

THEN 

DO; 





CALL 

MNEOO; 


/♦BOOST NAVIGATION 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

TCSTAT 

THEN 

DO; 





CALL 

MTCUO? 


/♦restart CALCULATIONS 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

PASTAT 

THEN 

DO; 





CALL 

MPAOO; 


/♦PHASE ACTIVATOR*/ 




CALL 

PERPROC; 

END; 




IF 

TTSTAT 

THEN 

DO; 





CALL 

MTTOO; 


/♦TIME TILT GUIDANCE 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

CC 1 ST AT 

THEN 

DO; 





CALL 

MCCIO; 


/♦CHI COMPUTATIONS 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END ; 




IF 

IGSTAT 

THEN 

DO; 





CALL 

MIGOO; 


/♦ITERATIVE GUIDANCE MODE*/ 



CALL 

PERPROC; 

END; 




IF 

HSSTAT 

THEN 

DO; 





CALL 

MHSOO ; 


/♦S4B CUTOFF PREDICTION 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 

r 



IF 

OGSTAT 

THEN 

DO; 





CALL 

MOGOO; 


/♦ORBITAL GUIDANCE 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

TGSTAT 

THEN 

DO; 
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CALL 

MTGUO; 


/♦TARGET UPDATE 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

RSSTAT 

THEN 

DO; 





CALL 

MRSOOs 


/•TIME-TO-GO TO RESTART 

(NOT 

CODED)*/ 


. CALL 

PERPROC j 

END; 




IF 

CSSTAT 

THEN 

DO; 





CALI 

MCSOO ; 


/♦TIME BASE 6 CHECK 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

TB1STAT THEN 

DO; 





CALL 

MTR10; 


/♦TIME BASE 1 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

TB57STAT THEN 

DO; 





CALL 

MTBb7 ; 


/♦TIME BASE 5/7 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




IF 

MSSTAT 

THEN 

DO; 





CALL 

MMSOO; 


/♦MINOR LOOP SUPPORT 

(NOT 

CODED)*/ 


CALL 

PERPROCl 

END; 




IF 

PGSTAT 

THEN 

DO; 





CALL 

MPGOO; 


/♦SIM PLATFORM GIM AN0LE (NOT 

CODED)*/ 


CALI, 

PERPROC; 

END; 




IF 

EBSTAT 

THEN 

DO; 





CALL 

MEPOO; 


/♦ETC/BTC 

(NOT 

CODED)*/ 


CALL 

PERPROC; 

END; 




GO 

TO NISI? 






CLOSE NONINTSEQl} 

N0NINTSEQ2 1 PROGRAM; /*NON-INTERRUPT SEQUENCER FOR PHASES 2 AND 4 */ 

E 

MS2i IF CTSTAT THEN DO; 

CALL MCTOO;/* DATA COMPRESSION TELEMENTRY (NOT CODED)*/ 
CALL PERPROC; END; 

E 

IF DTSTAT THEN 

CALL MDTOO;/*SECTOR DUMP TELEMENTRY (NOT CODED)*/ 

CALL PERPROC; /*INSURE PERIODIC PROCESSOR GETS EXECUTED*/ 

GO TO NIS2; 

CLOSE N0NINTSEQ2; 
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PERPROCi PROGRAM; /*PER10DIC PROCESSOR*/ 

DECLARE VPPOT INTEGER) 

READ (CLOCK ) ITEMP; 

DVPTG » (ITEMP - VPP0T)/4; 

VPPOT « ITEMP) 

IF DVPTG < 0 THEN DVPTG ■ DVPTG ♦ DKRTCOVF/4; 

DO FOR I ■ 1 TO 3) 

F 

IF NOT PPSTAT THEN GO TO PP20; 

S 1 

DLPTL * DLPTL + DVPTG; 

S I I 

IF DLPTL < DLPRL THEN GO TO P P20; 

S I I 

DO CASE I; 

call MPCSO; /*PERFORM SO DATA C0MPRE8S(N0T CODED)*/ 
CALL MPC60; /*PEPFORM 60 DATA COMPRESSCNOT CODED)*/ 
CALL MPC99J /*PERFORM 100 DATA COMPRESS(NOT CODED)*/ 

END; 

DLPTL «0; 

S I 

FP20* END; 

CLOSE PFRPROCJ 
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MEPOOi 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


PROGRAMj /^EVENTS PROCESSOR (TIMER 2 ENTRY)*/ 

EVENTS PROCESSOR TABLE 

ONLY A PORTION OF THE TABLE (THROUGH TIME BASE 3) 

HAS BEEN CODEO. 

EACH ENTRY CONSISTS OF TWO WORDSi 

1. AN INDEX IDENTIFYING THE APPLICATION MODULE TO 
PERFORM PROCESSING FOR THE EVENT. 

2. EVENT EXECUTION TIME (IN TENTHS OF A SECOND). 

NOTE i AN ENTRY INDEX WITH A VALUE OF ZERO IS EITHER SET 
DYNAMICALLY IN REAL TIME OR IS USED TO DISABLE 
THE EVENTS PROCESSOR FOR THE REMAINDER OF A TIME 
BASE 

DECLARE EPT ABLE ARRAY(2,131) INTEGER INITIAL 


( 1 

9 

0 

, /* START 

OF 

TIME 

BASE 

0 

table 

0 

9 

160 

9 






0 

9 

170 

9 






0 

0 

175 

9 






a 

9 

0 







2 

» 

0 

, /*START 

OF 

TIME 

BASE 

1 

table*/ 

3 

0 

10 







0 

9 

60 

9 






4 

9 

90 

9 






5 

9 

100 







0 

9 

140 

9 






6 

9 

1347 

9 






0 

9 

0 







7 

9 

0 

\ /*START 

OF 

TIME 

BASE 

2 

table*/ 

0 

9 

0 

9 






0 

9 

184 







0 

9 

275 

9 






0 

9 

0 

9 






8 

9 

0 

9 /♦START 

OF 

TIME 

BASE 

3 

table*/ 

9 

9 

0 

9 






10 

9 

0 

9 






0 

9 

0 

9 






11 

9 

0 

9 






12 

9 

0 

9 






13 

9 

14 

9 






14 

9 

44 







15 

9 

44 

9 






16 

9 

67 

9 






0 

9 

67 

9 






17 

9 

67 

9 






18 

9 

' 406 

9 






19 

9 

406 

9 






20 

9 

586 

9 






21 

9 

606 

9 






0 

9 

2990 

9 






0 

9 

3550 

9 






0 

9 

3885 

9 






0 

9 

o); 
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E 

EPOOi 

EP004A» 

E 


S 


EPOJ l 


IF DFTBCEP THEN 
DO} 


DFTBCEP « FALSE J 
GO TO EP02} 


END» 

DO CASE EPT ABLE J 

l.EPTINDX 

CALL LE265} /*SCHEDULE WATER METHANOL (NOT 

CALL LE2b ; /*TIME BASE 1 SETUP (NOT 

CALL LE30} /*COMMAND INIT OF YAW MANEUVER (NOT 
CALL LE35) /*COMMAND TERM OF YAW MANEUVER (NOT 
CALL LE4(jj /*SET ACCEL REASON TEST CONST (NOT 
CALL LE5UJ /*START TIME BASE 2 (NOT 

CALL LE5b; /*DISABLE THRUST CONSTRAINT (NOT 
CALL LE7&J /*TIME BASE 3 SETUP (NOT 

CALL LE70 j /*SET ACCEL REASON TEST CONST (NOT 
CALL LE250} /*CHNG GIMB REASON TEST CONST (NOT 
CALL LE355J /*DI8ABLE TIME TILT (NOT 

CALL LE365J /*F/M UNCEPT FOR THUST MISALIN (NOT 
CALL LE82J /*ENABLE DIN 22 AND INT 2 (NOT 

CALL LE100J /*SET ACCEL BACKUP PROFILE (NOT 

CALL LE9b f /*SET ACCEL REASON TEST CONST (NOT 
CALL LE90; /*ENABLE DIN 19 (NOT 

CALL LE96 } /*ENGUEUE F/M CALC, SMOOTHING (NOT 
CALL LE 105} /^ENQUEUE I0M (NOT 

CALL LE115: /*SET MINOR LOOP PARAMETERS (NOT 

CALL LE 111; /*SET SMC FLAG (NOT 

CALL LEUOj /4-ENQUEUE SMC (NOT 


END} 


CODED) 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 


INHIBIT ALL INTERRUPTS EXCEPT TLC 


IF DFTBCEP THEN GO TO EP04A } 

EPTINDX * EPTINDX ♦ 1} 

DQST2 = 4; /*SET INDEX FOR EP ENTRY IN T2 SCHED CONTROL TABLE*/ 
IF EPTABLE *’■ 0 

l.EPTINDX 
THEN DO} 

IF EPTABLE ■ VTOLD 

2, EPTINDX 
THEN DO} 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 

GO TO EPOO} 

END} 

VTOLD ■ EPTABLE J 

S 2, EPTINDX 

DLTTL * DVTMR ♦ VTOLD DKRTCSEC/40} 

S D0ST2 

END} 
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ELSE DO; 

E 

T2STAT ■ FALSE; 

S DUST2 

IF NOT 0FIL1 

THEN CALL EGP07; /*RESCHEDULE T2 (NOT CODED)*/ 

END; 

EP02I ; 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 


MEP05 I 


S 


HEP 1 0 i 


S 


S 


s 

E 

S 

E 

S 


CLOSE MEPOO; 

PROGRAM; /*E VENTS PROCESSOR (TIME BASE CHANGE ENTRY)*/ 

DECLARE ARRAY (10) EPTTBINDX INTEGER CONSTANT 
(1,6, 14, 19,39,56,72,94, 108,111) ; 

EPTINDX « EPTTBINDX - 1; 

DTRID+1 

CALL MEP10; 

CLOSE MEP05; 

PROGRAM; /*EVENTS PROCESSOR (RESCHEDULE ENTRY)*/ 

EPTINDX ■ EPTINDX * 1; 

D0ST2 « 4;/*SET INDEX FOR EP ENTRY IN T2 SCHED CONTROL TABLE*/ 
IF EPT ABLE "’ = 0 

1, EPTINDX 
THEN DO; 

VTOLD » EPTABLE ; 

2, EPTINDX 

DLTTL ■ DVTMR + VTOLD OKRTCSEC/40; 

DQST2 

T2STAT » TRUE; 

DQST2 

END; 

ELSE T2STAT « FALSE; 

DQST2 

IF NOT DFIL1 THEN CALL EGP07 ; /*RESCHED T I HER2 (NOT CODED)*/ 
CLOSE MEP10; 
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MIGOOi PROGRAM; /*ITERATIVE GUIDANCE MODE*/ 
DECLARE BITU) , 

CHI 8AR_STEERING, 

PHASE, 

REITERATE, 

SMC.FLAG, 

S4BURN; 

DECLARE SCALAR, 


COSTHETA, 

DELTAL3, 

0ELTA2, 

DPHII, 

DPHIT, 

EP3IL0N2 

EPSIL0N3, 

GT, 

Jl, 

J12, 

J2, 

J3, 

J3P , 



KCCT4 CONSTANT 

(1.53), 


KCCT8 CONSTANT 

(1,55) , 


KMU CONSTANT 

C-.39860320E15), 


KT CONSTANT 

(.48497964E-7), 


Kl, 

K2, 

K 3 , 

K4, 

LYP, 

LI, 

L12, 

L2, 

L3, 

L3P, 

PHI I , 

phiit. 

PHIT, 

PI, 

P12, 

P2, 

01, 

Q 12, 

02, 

R, 

R0VEX3, 

RT. 

SINTHETA, 

si. 

S ) 2, 

S2 , 

TAU1, 

TAU2, 

TAU3, 

TCI, 

THETAT, 

TSTAR, 

TIC, 

Til, 

121 , 

T3I , 

Ul, 

U 1 2 , 

U2. 

V, 

VEX 1 , 

VEX2, 

VEX3 , 

VT; 


DECLARE VECTOR, 



■ DELTAVVP, 

GS, 

GV, 

GVSTAR, 

GVT, 

RS, 

RV, 

RVT , 

P4, 

VS, 

VV, 

VVT , 


V4 ; 

DECLARE MATRIX, 

MS4, 

M4V; 

DUE TO THE SIZE OF IGM, ONLY A SECTION OF IT HAS BEEN CODED. 
PART OF THE GUIDANCE COMPUTATIONS HAVE BEEN SELECTED TO DEMON- 
STRATE MATHEMATICAL OPERATIONS, THE PHASING PORTION OF IGM 
HAS NOT BEEN CODED SINCE SIMILAR CAPABILITIES ARE ILLUSTRATED 
BY OTHER KERNELS. 

IG251 - IGM GUIDANCE PARAMETERS COMPUTATIONS 
ROTATE POSITION AND VELOCITY INTO TARGET PLANE 

* 

IG253 i R4 a MS4 RSj 

CALL UTROO ; /*DELA Y FOR TELEMETRY AS REQUIRED*/ 
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WRITE CTELX4) R4 j /‘TELEMETER X POSITION IN 4 SYSTEM*/ 
S 1 

CALL UTROO ; /*DEL AY FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELY4) R4 } /‘TELEMETER Y POSITION IN 4 SYSTEM*/ 
2 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 

* 

V4 » MS4.VS; 

CALL UTROO' J /‘DELAY FOR TELEMETRY AS REQUIRED*/ 

WRITE CTELZ.4) R4 j /*TELEMETER Z POSITION IN 4 SYSTEM*/ 
3 

CALL UTR02 ; /*DEL A Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TEL YD4) V4 ; /‘TELEMETER Y VELOCITY IN 4 SYSTEM*/ 
2 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 
CALCULATE RANGE ANGLE MEASURED IN ORBIT PLANE 


IG254i 


E 

E 

E 


I G258 I 


E 

E 

E 


10259 i 


IF T2I ■ 0 

THEN DO: 

L12, J12,S12,Q12,P12,U12 * 0: 

GO TO I G259 } 

END; 

IF Til « 0 

THEN DO; 

LI, Jl. SI, Ql, PI, U1 « 0; 

GO TO IG258; 

END; 

LI » VEX 1 LOG(TAUI/(TAUI - Til)); 

Jl ■ LI TAU1 - VEX 1 Till 
SI • LI Til - Jl; 

2 

Ql ■ SI T AU 1 - .5 VEX 1 Til ; 

2 

PI ■ Jl TAU1 - .5 VEX 1 T 1 1 ; 

3 

U 1 ■ Ql TAU1 - VEX 1 Til /6,j 
L2 ■ VEX2 LOG (TAU2/ (TAU2 - T2I ) ) ; 

J2 ■ L2 TAU2 - VEX2 T2I; 

32 « L2 T2I - J2; 

2 

Q2 ■ S2 TAU2 - .5 VEX2 T2I ; 

2 

P2 » J2 TAU2 - .5 VEX2 T2I 

3 

U2 ■ Q2 TAU2 - VEX2 T2I /6.; 

L 1 2 » LI + L2; 

J 12 ■ Jl + J2 +' L2 Til; 

S 1 2 ■ SI - J2 ♦ L12CT2I + TCI); 

Q 12 8 Qi + Q2 ♦ S2 Til ♦ Jl T2I ; 

P 1 2 ■ PI ♦ P2 + T 1 1 (2 J2 ♦ L2 Til); 

U 1 2 8 ui + U2 + Til (2 Q2 + S2 Til) + T2I PI: 

L3P ■ VEX3 L0G(TAU3/(TAU3 -T3I)): 

LYP ■ L12 ♦ L3P ; 

J3P ■ L3P TAU3 - VEX3 T3I; 


- 195 - 



HAL KERNEL 6 


ITERATIVE GUIDANCE MODE 


S 

c 

c 

c 

E 

IG260 i 
IG262 1 
E 

E 


C 

E 


C 


TIC ■ Til + T2I * TCI ; 
TSTAR ■ TIC ♦ T3I ) 

PHI I ■ ATAN (R4 , R 4 ); 

3 1 


DETERMINE PHASE 


IF PHASE 
DO ; 


THEN /^CALCULATE TERMINAL CONDITIONS*/ 


SINTHETA ■ R8.V3/(R*V); 

* 2 
COSTHETA ■ SORT C 1 - SINTHETA ); 

DPHII b (V/R) COSTHETA; 

DPHIT b (VT/RT) COS(THETAT); 

PHI IT b .5 TSTAR (DPHII + DPHIT); 

PHIT b PHI I ♦ PHIIT; 

CALL UTR02 1 /*DELA Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELPHIT) PHIT 1 /*TELF.METER TERMINAL RANGE ANGLE*/ 
RELEASE INTERRUPTS LOCKED BY TELEMETRY DELAY ROUTINE 
IF TSTAR <b EPSILON3 THEN GO TO IG269; 

CALL MIG30;/*CALC TERM RAD.VEL.FLT ANGLE(NOT CODED)*/ 

2 

GT ■ - KMU/RT ; 

CALL UTRCIO; /*DELA Y FOR TELEMETRY AS REQUIRED*/ 

WRITE CTELGT) GT; /*TELEM£TER TERMINAL GRAVITY VECTOR*/ 
RELEASE INTERRUPTS LOCKED BY TELEMETRY DELAY ROUTINE 


GVT b VECTOR (GT COS(THETAT) . 0, GT SIN(THETAT) ) ; 

RVT ■ VECTORtRT' COS(THETAT), 0, 0); 

10269; PHIT s PHIT - THETAT; 

END; 

ELSE DO; ^CALCULATE INTERMEDIATE PARAMETERS*/ 

DELTA? » V TSTAR - J3P + LYP T3I - R0VEX3((TAU1 - 

Til) LI ♦ (TAU2 - T2I ) L2 + (TAU3 - T3I) L3P ) 
(LYP + V - VT); 

PHIITb kT (S12 ♦ DELTA2) ; /*KT = COS ( THETAT) /RT*/ 

PHIT b PH 1 1 * PHIIT; 

CALL UTR02; /*DEL A Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELPHIT) PHIT;/*TELEMETER TERMINAL RANGE ANGLE*/ 
C RELEASE INTERRUPTS LOCKED BY TELEMETRY DELAY ROUTINE 

END; 

C 

C ROTATE POSITION, VELOCITY, GRAVITY TO INJECTION SYSTEM 

C 

E * 

IG291 ; M4V b MATRIX(COS(PHIT), 0, SIN(PHIT), 

0, 1, 0, 

-SIN(PHIT), 0, COS(PHIT) ) ; 

E * 

RV b M4V R4; 

E * 

VV b M4V V4; 
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E 

E 

F. 


* * _ 

GV ■ M4V MS 4 GS ; 

GVSTAR = 5 ( G V T + GV); 

DELTAVVP a WT - VV - TSTAR GVSTARj 
IG314 - CALCULATE TIME-TO-GO 


(NOT CODED) 


IF REITERATE 
THEN DO; 

REITERATE ■ FALSE; 

L3P « L3 ; 

J3P = J3; 

LYP » I. YP + DELTAL3} 

GO TO IG260; 

END; 

ELSE REITERATE * TRUE; 

IG324 - COMPUTE CORRECTED VELOCITIES TO BE GAINED (NOT CODED) 
IG32S - CALCULATE DESIRED PITCH AND YAW (NOT CODED) 


IF CHI BAR STEERING THEN GO TO IG350; 

IF TSTAR >= EPSILON2 THEN GO TO IG360? 

IF S4BURN 


THEM 

DO; 




DVMC5 

S 

DVMC5 OR MSKMC5CBS ; 


DVMLR 

s 

25 KCCT4; 


DV1MR 

8 

, 04/KCCT4 ; 

END; 




ELSE 

DO; 




• 

PVMC6 

e 

DVMC6 OR MSKMC6CBS; 


DVMLR 

e 

2b KCCT8 ; 


DV1MR 

■ 

, 04/KCCT8 ; 


END; 


I G34 0 » CHI BAR STEERING ■ TRUE; 

1 G360 i K1, _ K2, _ K3, K4 a 0; 

GO TO IG440; 

I G360 i ;/*IG361 - COMPUTE INTERMEDIATE PARAMETERS (NOT CODED)*/ 

IG440. CALL UTR00 | /*DELA Y FOR TELEMETRY AS REQUIRED*/ 

WRITE CTELT3I) T3I; /*TELEMETER T3I*/ 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 
C IG446 - COMPUTE PITCH AND YAW IN 4-SYSTEM (NOT CODED) 
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C 

E 

IF SMC FLAG THEN CALL MSMOO J /^COMPUTE SMC TERMS 
CALL MCCOOs /^PERFORM CHI COMPUTATIONS 
E 

IF DFILE AND MSKFPSINT2 0 
E 

THEN CALL EGP32 (MSKSCCO) j/*ENABLE INTERRUPT 
CLOSE MIGOOj 


(NOT CODED)*/ 
(NOT CODED)*/ 


2 (NOT CODED)*/ 
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MDSOOt 


PROGRAM | /*DIGITAL COMMAND SYSTEM*/ 

DECLARE INTEGER, 

DCSDATACOUNT, 

DCSDATCT ARPAYC20) CONSTANT 

(0,1,355,2,2,3,3 0,35,8 0,6,0), 

DCSERLIM CONSTANT (7), 

DCSINDX, 

DCSMODE ARRAY (64) CONSTANT 

(5#0 f 8,2#0, 1,2, 3,4,5, 2#0, 14, 6,0,7, 2#0, 19, 3#0, 9, 0,15, 
17,8#0, 13,4#0, 18, 10, 11, 12,2#0, 16, 15#0), 

VDSRC} 

DECLARE BIT ( 1 ) , 

DCMSTAT ARR A Y ( 20 ) , 

FDSEN, 

FDSPG, 


FDSRF, 

VDSSB: 

DECLARE BIT (26 
DCSER04 
DCSER10 
DCSER14 
DCSER20 
DCSER24 
DCSER44 
DCSEP60 
DCSER64 
DCSER74 
DCSSTCOD 
(OCT 
OCT 
OCT 
OCT 
OCT 
OCT 
OCT 


), 

CONSTANT 

CONSTANT 

constant 

CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
ARRAY (20) 

' 000000000 
•120000000 
•200000000 
•310000000 
•770000000 
•330000000 
•520000000 


(OCT ' 040000000 ' ) , 
(OCT' 100000000* ) , 
(OCT ' 140000000 ' ) , 
(DCT'200000000'), 
(OCT ' 240000000 ' ) , 
(OCT ' 440000000 ' ) , 
(OCT ' 600000000 ' ) , 
(OCT '640000000 ' ) , 
(OCT '740000000 ' ) , 
CONSTANT 

•, OCT' 100000000*, 
i . nrr • nnnnnnnm 

i 

i _ 

• , OCT ' 450000000 ' , 
OCT '600000000', 
', OCT * 250000000 * ) 


VDSER , 

VDSOli 

DECLARE ARRAY (35) VDSBL BIT(6)j 


OCT' 110000000' , 
OCT '140000000 ' , 
OCT ' 050000000 ' , 
OCT ' 770000000 • , 
OCT ' 170000000 ' , 
OCT ' 340000000 ' , 


C 

C 

C 

E 

F 

E 


C 


RELEASE PREVIOUSLY ENABLED INTERRUPTS 

READ(DIR) BTEMP; /*READ DISCRETE INPUT REGISTER*/ 
READ (DCS) VDSOl; /*PEAD DCS INPUT REGISTER*/ 

IF BTEMP AND MSKDCSMODE « 0 THEN GO TO DS60; 


C PROCESS DCS MODE COMMAND 

C 


F. 

D S 0 9 t 
S 


E 


IF VDSOl 

1 TO 7 
THEN DO; 


■•» NOT VDSO 


8 TO 14 
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DIGITAL COMMAND SYSTEM 


E 

E 

E 

E 

E 


E 

E 


E 

D820 l 
DS25 i 
S 

s 

E 

S 

E 

E 


C 

S 


E 


VDSER ■ DCSERiOj 
GO TO DS220 j 

END J 

• • 

IF VDS01 AND MSKDCSSB 0 
THEN DO) 

VDSER ■ DC8ER24) 

GO TO DS220) 

END) 

IF VDS01 AND MSKDCSMC ■ MSKDCSTERM THEN GO TO D825) 

IF NOT FDSEN 
THEN DO) 

VDSER » DCSER20) 

GO TO DS220) 

END) 

IF DFDTL OR FDSPG 
THEN DO) 

VDSER ■ DCSER64) 

GO TO DS220) 

END) 

FDSPG « TRUE) 

ITEMP ■ INTEGER ( VDSOl )) 

1 TO 6 

DCSINDX ■ DCSMODE +1) 

ITEMP+1 


IF NOT DCSM8T AT 

DCSINDX 

THEN DO) 

FDSPG ■ FALSE) 

VDSER ■ DC8ER74) 

GO TO DS220) 

END) 

TELEMETER STATUS CODE TWICE 

CALL UTR24 ) /*DELAY FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELDCSSC) DCSSTCOD ) 

DCSINDX 

CALL UTR24 ) /*DELAY FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELDCSSC) DCSSTCOD ) 

DCSINDX 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 
CALL DS200) /*ISSUE CRP*/ 

DCSDAT ACOUNT ■ 0) 

VDSSB ■ BIN* O' ) 

GO TO DS100) 
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PROCESS DATA WORD 


DS60 t 

IF 

FDSEN 

THEN 

DO; 




END; 

VDSER 
GO TO 

». DCSER04; 
DS220; 


IF 

VDSOl 

1 

THEN 

TO 7 
DO; 

■’» NOT VDSOl 



END; 

• 

VDSER 
GO TO 

= DCSER44 ; 
DS220; 


IF 

VDSOl 

''a VDSSB 


7 

THEN DO; 

VDSER » DCSER60; 

GO TO DS220; 

ENDj 

DSllOi /*TELEHETER DATA WORD TWICE*/ 

CALL UTR24 ; /*DELA Y FOR TELEMETRY AS REQUIRED*/ 

WRITE ( TELPCSDW ) VDSOlj 

CALL UTR24 ; /*DELA Y FOR TELEMETRY AS REQUIRED*/ 


• 

WRITE (TELDCSDW) VDSOl; 

RELEASE INTERRUPTS DISABLED «Y TELEMETRY DELAY ROUTINE 
CALL DS200; /♦ISSUE CRP*/ 

• * 

VDSBL ■ VDSOl j 

DCSDAT ACOUNT + 1 1 TO 6 

• • 

VDSSB * NOT VDSSB } 

DCSDAT ACOUNT = DCSDATACOUNT + lj 
DSlOOi IF DCSDATACOUNT < OCSDATCT THEN RETURN; /*MOSOO*/ 

S DCSINDX 

DO CASE DCSINDX; 

DO; 

F. 

FDSPG » FALSE; 

E . 

VDSER = DCSER14; 

GO TO DS220; 

END; 

CALL DS260; /*TIME BASE UPDATE (NOT CODED)*/ 

DO; 

CALL DS330 ASSIQN(EXIT) ;/*NAV UPDATE (NOT CODED)*/ 
IF EXIT THEN GO TO DS235) 
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END) 

DO) 

CALL DS380 ASSION(EXIT) )/*GENEPAL SS (NOT 
IF EXIT THEN GO TO DS220) 

END) 

CALL DS430) /*SECTOR DUMP (NOT 

CALL DS470) /*TELEMETER SINGLE MEMORY LOCCNOT 

CALL DS510) /*TERMINATE (NOT 

CALL DS540) /*MANEUVER UPDATE (NOT 

CALL DS550) /*MANEUVER INHIBIT (NOT 


DO) 

CALL DS670 ASSIGN (EXIT) )/*TARGET UPDATE ( NOT 


IF EXIT THEN GO TO DS235) 

END ) 

CALL DS700 ) /*ANTENNA TO OMNI (NOT 

CALL DS720 J /*ANTENNA TO LOW (NOT 

CALL DS740) /*ANTENNA TO HIGH (NOT 

CALL DS770) /*INHIBIT WATER CONTROL VALVE (NOT 

CALL DS790 ) /♦TIME BASE 8 ENABLE (NOT 

CALL DSBIO) /^EXECUTE MANEUVER A (NOT 

CALL DSB40) /*TD AND E ENABLE (NOT 

CALL DS860; /^EXECUTE MANEUVER B (NOT 

CALL DS900) /*S4B/IU LUNAR IMPACT (NOT 

CALL DS960) /^ENABLE TB6D ALTERNATE SEQ (NOT 

END) 

GO TO DS530 ) 


CODED)*/ 


CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 


CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 

CODED)*/ 


PROCFSS DCS ERROR CONDITION 


DS220 i 


E 

F 

E 

S 

D S 2 3 5 1 
E 

F 

C 

F 

DS530 i 
F 

E 


DS200 « 


VDSRC ■ VDSRC ♦ 1) 

IF VDSRC < DCSERLIM 

THEN FDSRE « FALSE) 

ELSE FDSRE * TRUE) 

VDSER » VDSER OR BIT(VDSRC) OR VDSOi ; 

1 TO 14 

/♦TELEMETER ERROR CODE TWICE*/ 

CALL UTP24 ; /*DEL A Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELDCSEC) VDSER) 

CALL UTR24 ) /*DELA Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELDCSEC) VDSER) 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 

IF NOT FDSRE THEN RETURN) /*MDSOO*/ 

VDSRC ■ 0) 

FDSEN » TRUE) 

FDSPG ■ FALSE) 

RETURN) /*MDSOO*/ 

PROCEDURE) /*I SSUE DCS COMMAND RESET PULSE*/ 
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C 

C 

C 

F 


E 


C 


C 

C 


INHIBIT ALL INTERRUPTS EXCEPT TLC 


WRITE ( DOS ) MSKDCSDO ; /*SET COMMAND RESET BIT IN 
WAIT /* 4.13 MILLI-SEC */j 

WRITE(DOR) MSKDCSDOj/*RESET COMMAND RESET BIT 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 

CLOSE DS200 j 
CLOSE MDSOO; 


DOR*/ 

IN DOR*/ 
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MAROOi PROGRAM | /* ACCELEROMETER READ ROUTINE*/ 

DECLARE VO AC ARRAY (3) BIT(26); 

DECLARE SCALAR, 

VCCYA , 

VCCZA ; 

INHIBIT ALL INTERRUPTS EXCEPT TLC 

READCXACC) DVAC ; 

1 

READCYACC) DVAC j 
2 

READ (ZACC) DVAC x 
3 

READ(CLOCK) DVACT; 

CALL UTROO ; /*DELAY FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELTI) DVTIj /*TELF.MET£R TIME OE CURRENT TIME BASE*/ 
STEMP ■ DVTASj 

ITEMP « DVACT - DVRTC - OVERT l 
IF ITEMP <0 THEN ITEMP ■ ITEMP + DKRTCO VF ; 

DVT AS » DVTMM DKRTCSEC * (DKRTCSEC/4) ITEMP; 

DVTB » DVT AS - DVTIj 
DVDT ■ DVTAS - STEMP; 

CALL UTROO J /*DEL A Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELTB) DVTB; /*TELEMETER TIME IN CURRENT TIME BASE*/ 

0VMC4 ■ DVMC4 AND MSKRTCRESET ; 

RELEASE PREVIOUSLY ENABLED INTERRUPTS 

CALL UTROO ; /*DELA Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELXAC) DVAC ; /*TELEMETER X ACCELEROMETER READING*/ 

1 

CALL UTROO ; /*DELAY FOR TELEMFTRY AS REQUIRED*/ 

WRITE CTELYAC) DVAC ; /*TELEMETER Y ACCELEROMETER READING*/ 

2 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 
IF DKT 1 « 0. THEN DVFMC » - DVG ; 

1 

ELSE DO; 

DVMAS ■ DVMAS - DVEOF DVMFR DVDT; 

DVFMC ■ DVEOF DVFOR/DVMAS ; 

END; 

COMPUTE AVERAGE CHI'S FOR SMC CALCULATIONS 

AR4 1 i D VC A «(DVCC + VCCZA)/2.; 

S 3 3 

VCCZA ■ DVCC ; 

S 3 

DVC A » ( D VCC + VCCYA) /2, ; 

S 2 2 

VCCYA « DVCC J 
S 2 

CALL UTROO ; /*DEL AY FOR TELEMETRY AS REQUIRED*/ 
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WRITE (TELZAC) DVAC } /*TELEMET£R Z ACCELEROMETER READING*/ 

3 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 
COMPUTE CHANGES BETWEEN CURRENT AND PREVIOUS ACCELEROMETER READINGS 


_ # • 

ARlOOi DVD A ■ VECTOR l [DVAC ]) - VECTOR ( [VOAC ])} 

1 TO 12 1 TO 12 

DVDB * VECTOR ( [DVAC 3) - VECTORttVOAC 3)j 

15 TO 26 15 TO 26 


[V0AC3 e [DVAC] ; 

CALL UTROO J /*DEL A Y FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELRTC3 DVACT} /*TELEMETER REAL TIME CLOCK AT ACCEL READ*/ 
RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 


COMPUTE EXPECTED VELOCITY CHANGES 

AR7 1 t DVD = 20 DVDT COSCDVTH ) COSCDVTH ): 

1 2 3 

DVD * 20 DVDT STN(DVTH )j 

2 3 

DVD * - 20 DVDT SIN(DVTH ) COS(DVTH )} 

3 2 3 

CALL UTROO ; /*DEL AY FOR TELEMETRY AS RED U IRE 0*/ 

WRITE (TELTAS) DVTASj /*TELEMETER MISSION EL ARSED TIME*/ 

RELEASE INTERRUPTS DISABLED BY TELEMETRY DELAY ROUTINE 

DVF » DVFOM DVD} 

CLOSE MAROOj 

MAPOOi PROGRAM} /*ACCELEROMETER PROCESSING*/ 

DECLARE SCALAR, 

DELTA, 

KSN2D CONSTANT (.0348994967), /*SIN 2 DEGREES*/ 

VACZR, 

VPOV ARRAY (3) J 

DECLARE ARRAY (3) BIT(26) CONSTANT, 

MSKAPDG (OCT *040000000 • , OCT' 01 00000 00' , OCT '200 000000 ' ), 
MSKAPOF (OCT'OOOO 00010', OCT ' 000000200 ' , OCT' 000000020')} 
DVVSQ * 0; 

VACZR * 20 DVFOM DVDT KSN2D } 

DO FOR I = 1 TO 3} 

AP400 1 IF ABS (DVDA - DVDB ) < = 2 THEN GO TO AP450} 

I I 

IF ABS (DVD A - DVF ) < ABS (DVDB - DVF ) THEN GO TO AP440; 
1 I I II 


S 

s 


DVMC4 


DVMC4 OR MSKAPDG 


it: 


DELTA ■ DVDB s 
I 

GO TO AP460 } 


CAT BIN ' 0 ' } 

TO 26 



HAL KERNEL 0 


ACCELEROMETER PROCESSING 


S 

S 

E 

S 

E 

S 

E 

S 

E 

S 


AP440 t 
AP450 I 

AP460 i 

AP470 l 
AP530 » 


AP500I 

S 


S 

S 

S 

s 

E 

AP5 1 0 i 
AP520 i 
S 

S 

S 

S 

S 

C 


DVMC4 « DVMC4 OR MSKAPDG } 

I 

DELTA s DVDA j 

I 

IF A6S (DELTA ) > 1 OR NOT DFZER OR ABS(DVF ) < VACZR 

I 

THEN GO TO AP500| 


DVMC4 m DVMC4 OR MSKAPOF I 

I 


DVMC4 8 DVMC4 OR MSKAPDG OR MSKAPDG CAT BIN'O'S 

1 1 1 2 TO 26 

DFSMC = FALSE; 

DELTA « DVFMC DVD J 
I 

GO TO AP520 ; 

IF DVF < 0 
I 

THEN DO? 

IF DELTA < 1.5 DVF - DVDT DVRC OR 

I I 

DELTA > .5 DVF + DVDT DVRC 

I I 

THEN GO TO AP530} 

END} 

ELSE IF DELTA > 1.5 DVF ♦ DVDT DVRC OR 

I I 

DELTA < .5 DVF - DVDT DVRC 

I I 

THEN GO TO AP530} 

2 

DVVSQ » DVVSQ + DELTA } 

VPOV 8 VPOV ♦ DELTA} 

I I 

DVDM 8 .05 VPOV } 

II 

CALL UTROlj /*DELAY FOR TELEMETRY AS REQUIRED*/ 

DO CASE 1} 

WRITE CTELXDM) DVMD }/*TELEMETER X MEASURED VELOCITY*/ 

1 

WRITE (TELYDM) DVDM }/*TELEMETER Y MEASURED VELOCITY*/ 

2 

WRITE (TELZDM) DVDM }/*TELEMETER Z MEASURED VELOCITY*/ 

3 

END } 

RELEASE INTERRUPTS LOCKED BY TELEMETRY DELAY ROUTINE 

END} 

CLOSE MAPOO} 
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minor LOOP 


MMLOOi 


F. 


MML20 i 


F 


MLOOl i 

ML201 i 
F 


S 

E 

S 

E 

S 

E 


PROGRAM? /*FLIGHT SIMULATION MINOR LOOP*/ 

IF DVLRC ■ 0 

THEN DVCC ■ DVCC - DVOC| 

ELSE DVLRC » DVLRC - 1 ; 

CALL MML20} /^EXECUTE NORMAL MINOR LOOP*/ 

CLOSE MMLOOi 

PROGRAM; /*MI NOR LOOP*/ 

DECLARE BIT (26) , 

VGR ARRAY (3D , 

VMEMR , 

VMLET; 

DECLARE SCALAR, 

KCPBG CONSTANT (641.5S39), 

VOCK; 

DECLARE ARRAY (3) SCALAR, 

VBUB , 

VCG , 

VDEL , 

VML2 , 

VSF } 

DECLARE ARRAY (3) INTEGER, 

FBUG , 

VCGO , 

VCG 1 , 

VCMND (3,3), 

VCOD , 

VFIO , 

VMLO , 

VML1 , 

VOLD , 

VPGR ; 

DECLARE INTEGER, 

FBUGS , 

KMAXLAD CONSTANT (256), 

VCG 1 0 , 

VCG 1 1 , 

VIRE l 

DVCC = DVCC + DVDC : 

IF FBUGS n = 0 THEN GO TO ML500; 

DO FOR I s 3 TO 1 By -1} 

DO CASE I; 

DOS 

• * • 

DVEMR a DVEMR OR VmEMRj 
.DO CASE VFIO + 1j 

1 

VGR * VPGR »/*USE INTERNAL X GIMBAL VALUE*/ 
1 1 

READ(XGIM) VGR j/*READ X GIMBAL*/ 

1 
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S 


ML101} 

E 

E 


S 

E 


READ(XBGIM) VGR J /*RE AD X BACKUP GIMBAL*/ 

1 

ENDS 

END ML20 1 s 
DO? 

READ (EMR ) VMEMR ; 

DVLDB ■ DVLDB - (VMEMR AND MSKEMKL ADB ) ; 

DO CASE VF 10 ♦ lj 

2 

VGR * VPGR ;/*USE INTERNAL Y GIMBAL VALUED/ 
2 2 


ML 00 1 A t 


READ(YOIM) VGR ;/*READ Y GIMBALS/ 

2 

READ(YBGIM) VGR ; /*RE AD Y VACKUP GIMBAL*/ 
2 

END? 

END ML101; 

DO CASE VF I 0 ♦ 1; 

3 


ML 430 i 
ML432i 


VGR = VPGR ; /*USE INTERNAL Z GIMBAL VALUE*/ 
3 3 

READ (ZGIM) VGR ; /*RE AD 1 GIMBAL*/ 


RE AD ( ZBGIM ) VGR \ /*RE AD Z BACKUP GIMBAL*/ 
3 

END MLOOlAj 


ENDS 

IF VGR * 0 THEN GO TO ML020; 

III 

IF DVDGS < 0 THEN GO TO ML432s 
IF DVDGS s 0 THEN GO TO ML020; 

GO TO ML637S 

CALL MDGUO ASS I GN ( J ) ; /*PROCESS DISAGREEMENT BIT (NOT CODED)*/ 


DISAGREEMENT BIT PROCESSING WILL RETURN ONE OF THE FOLLOWING FOR Ji 
J ■ 0 FOR INVALID DISAGREEMENT BIT 
J « 1 FOR VALID GIMBAL, VALID DISAGREEMENT BIT 
J = 2 INVALID GIMBAL, VALID DISAGREEMENT BIT 


IF J ■ 0 THEN GO TO ML020; 
ML 434 i 00 CASE Is 

ML4352 i DO CASE VFIO \ 

1 


E 


READ (XGIM) BTEMPs/*RESTART Z COD COUNTER*/ 
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ML4351 I 


M L 4 3 5 0 I 


ML 020 * 


ML040i 


S 

s 

s 

E 

ML630 i 
E 
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READ ( XBGIM ) BTEMP j /*REST ART Z COD COUNTER*/ 
END ML4352J 
DO CASE VFIO ; 

2 

RFADCYGIM) BTEMP j /*REST ART X COD COUNTER*/ 

READ ( YBGIM) BTEMR j /*REST ART X COD COUNTER*/ 
END ML 4 35 1 3 
DO CASE VFIO ; 

3 

PEADCZGIM) BTEMP ; /*REST ART Y COD COUNTER*/ 

RFAD(ZBGIM) BTEMP ; /*RF START Y COU COUNTER*/ 
END ML 43b 0 S 
END ML434: 

IF J * 2 THEN GO TO ML637* 

• 

VCOD = VGR i 

I I » 2 TO 12 

IF VCOD a 0 AND VOLD a 0 AND ABSCVDEL ) > = VOCK 
I I I 

THEN GO TO ML631 J 

IF A8SCVC0D - VOLD ) < VMLO THEN RO TO ML040j 
I I I 

IF ABS (VCOD - VOLD ) + VMLO < VML1 THFN 00 TO ML630 
I I I I 

IF VCOD < VOLD 
I I 

THEN VCG ■ VCG + VML2 } 

I I I 

ELSE VCG « VCG - VML2 } 

I I I 

DVTH a V SF VCOD + VCG : 

I I I I 

VOLD ■ VCOD : 

I I 

VDEL » t'VTH > D VCC J 

I I I 

DFDBF « TRUE; 


DO CASE Ij 
VCMND 

s 

DVA6 

C VDEL * DV A3 

VDEL ); 

1. 

1 


1 

2 

VCMND 

s 

D V A 1 

VDEL + DVA2 

VDEL ); 

2, 

1 


2 

3 

VCMND* 

s 

DVA5 

VDEL - DVA4 

VDEL )j 

3, 

1 


3 

2 


END} 

GO TO ML730: 


VMLET a I + 2} 
GO TO ML632 i 
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MINOR loop 


ML63 1 1 
E 

ML 632 * 
S 


E 


VMLET * I - 1 J 

• • 

VMLET * VMLET CAT BIN ( 1 1 ) • 0 ' OR BITCVCOD ) 

12 TO 26 I 

OR BIT (VOLD ) CAT BIN(15)*U'j 

16 TO 26 I 

IF DVMC6 AND MSKMC6D04 ■ 0 
THEN DO; 

CALL UTR30 J /*DELAY FOR TELEMETRY AS REQUIRED*/ 
WRITE (TELMLER) VMLET ; /*TELEMETEK ERROR MESSAGE*/ 

END; 

• 

IF NOT DFDBF THEN GO TO ML635; 

DVRE ■ UVRE ♦ lj 
I I 

IF DVRE < 0 THEN GO TO ML637; 

I 

IF DVRE > 0 THEN GO TO ML636; 

I 

• 

VMLET = B I T ( VCOD ) OR BIT (VOLD ) CAT 0CT'34000'; 

I 16 TO 26 I 

VFIO = 2;/*SET I/O FLAG FOR BACKUP GIM8AL*/ 

I 

IF VCG >=PI THEN VCG • PI - VBUB : 

I I I 

ELSE VCG a - VBUB ; 

I I 

VML2 ■ PI; 

I 

IF DVTH >= PI THEN VOLD = (DVTH - PI) KCPBG; 

I I I 

ELSE VOLD a DVTH KCPBG; 

I 1 

VSF ■ 1/KCPBG; 

I 

IF I » 3 THEN DO; 

• 

WRITE ( ICR) M8KICRB0J /*8ET ICR TO SELECT BACKUP*/ 

D V ICR a DVICR OR MSKICRBG; 

END; 

FBUGS, FBUG » 2; 

I 

VMLO a VCG10 ; 

I 

VML 1 a VCG 1 1 ; 

I 

IF DVMC6 AND M3KMC6D04 a 0 
THEN DO; 

CALL UTR30 ) /*DELA Y FOR TELEMETRY AS REQUIRED*/ 
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ML635i 

E 


E 

F 

E 


E 

ML 636 i 

8 

F 


E 

M L 6 3 7 s 

HL730 i 
S 


S 


s 


s 


s 


s 


s 

ML76 0 i 
ML 260 « 


S 


8 


ML 1 60 i 
S 

ML 0 6 0 i 


S 

E 


WRITE (TELMLER) VMLET5/*TELEMETER ERROR MESSAGE*/ 

END J 

GO TO ML637; 

DVHDB = DVHDR - lj 

OFDBF = TRUEj 

DVHOA « OVHOA + Ij 

IF DVHDA < 0 THEN GO TO ML636| 

WRITECICR) MSKICRSWG;/*SET ICR TO SWITCH 0 1 MB AL ORDER*/ 

* • • 

DVICR « DVICR OR MSKICRSWGj 

• • • 

DVMC4 » DVMC4 OR MSKMC4AMF; 

DVDGS = 0; 

• • 

IF DVRE >= VIRE AND (DVMCb AND MSKMC6D04) ■ 0 
I 

THEN CALL UDOOO (MSKGRF) i/*SET GUIDANCE FAILURE DISC.*/ 

DFSMC a FALSE! 

GO TO M L 7 6 0 1 

IF ABS ( VCMND ) > DVM06 THEN VCMND = DVM06J 

1,1 1,1 
IF ABS ( VCMND - VCMND ) > DVM05 

1,1 1,2 

THEN VCMND = VCMND + DVMOSj 

1,1 1,2 

VCMND ■ VCMND J 

1,2 1,1 

IF VCMND < 0 

1,1 

THEN VCMND = KMAXLAD - VCMND ! 

1,3 1,1 

ELSE VCMND a VCMND 5 

1,3 1,1 

DO CASE li 
DC! 

READ (DBG ) I TEMp ; /*ST ART SPECIAL DOM BACKUP GIMBAL*/ 
WPITE(ZLAD) VCMND ;/*ISSUE YAW COMMAND*/ 

3.3 

WRITE CXLAD) VCMND s/*ISSUE ROLL COMMAND*/ 

1.3 

END ML260 j 

WRITE CYLAD) VCMND J/*1SSUE PITCH COMMAND*/ 

2.3 

DO! . 

WRITE (ZLAD) VCMND i/*ISSUE YAW COMMAND*/ 

3.3 


IF DVLDB < 0 THEN wRITE(ICR) MSKICRCA; 

ITEMP a DVTT1 - DVRTC ! 

IF ITEMP < 0 THEN ITEMP a ITEMP ♦ DKRTCOVFf 
DVMLT » DVTMM + DVMLD + ITEMP/4 1 
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END ML060 ; 

END M L 7 6 0 j 
END MLOOl; 

RETURN} /*MML20*/ 

ML 500 i DO FOR I * 1 TO 3: 

DO CASE FBtJG + 1; 
S I 


GO TO ML530; 

DO; 




FBUG 

* 0; 

s 


I 




VMLO 

a VCGO ; 

s 


I 

I 



VML1 

■ VCG 1 ; 

s 

t'Np; 

I 

I 


FBUGi 

* 1 J 



S I 

END; 

ML530 j END; 

FBUGS ■ SUM (IF RUG]); 


GO TO MLOOl; 
CLOSE MML20; 
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MS 0 0 l 

c 

c 

c 

r 

c 

c 

c 

c 

c 

c 

c 

c 

r 

c 


PROGRAM; /*S W I TCH SELECTOR PROCESSING*/ 

SWITCH SELECTOR TABLE 

THE SWITCH SELECTOR TABLE IS MADE UP OF A NUMBER OF 
SMALLER TABLES, ONE FOR EACH TIME BASE AND FOR EACH 
OF THE ALTERNATE SS SEQUENCES. THE SMALLER TABLES ARE 
ORGANIZED INTO ONE LARGE TABLE. HOWEVER, ONLY THE 
TIME BASE 1 TABLE HAS BEEN CODED. 

EACH TABLE ENTRY REPRESENTS A SINGLE SS COMMAND AND 
CONSISTS OF TWO WORDS. 

1. TIME OF SS ISSUANCE (IN TENTHS OF A SECOND). 

2. SS STAGE AND ADDRESS. 


DECLARE SSTABLE 

ARRAY (2 

,1000) INTEGER CONSTANT 

( 50 

9 

OCT 

« oooonoooo * , 

50 

$ 

OCT 

* 106500000* , 

140 

9 

OCT 

*026100000* . 

1 08 

$ 

OCT 

*406440000 ' , 

200 

9 

OCT 

*405440000 * , 

202 

9 

OCT 

* 406340000 * , 

240 

9 

oct 

*025740000*, 

270 


OCT 

*402100000* , 

290 

9 

OCT 

*027740000*, 

300 

9 

OCT 

•403040000* , 

320 

9 

OCT 

* 401 100000 * , 

495 

9 

OCT 

• 020100000 * , 

750 


OCT 

*000000000 * , 

900 

* 

OCT 

*402100000*, 

950 

9 

OCT 

*401100000*, 

953 

9 

OCT 

* 022640000 * , 

1050 

9 

OCT 

*407640000* , 

1151 

» 

OCT 

» 025740000 ' , 

1 198 

9 

OCT 

*406740000 « , 

1200 

9 

OCT 

*405740000 » , 

1201 

9 

OCT 

•027740000*, 

1300 

9 

OCT 

•404040000 » , 

1324 

9 

OCT 

*021640000*, 

1336 

9 

OCT 

•400700000 • , 

1338 

9 

OCT 

* 401700000 » , 

1344 

9 

OCT 

*021740000* , 

1346 

9 

OCT 

•023740000 • , 

0*377777776 

1 

9 

OCT 

•000000000 * ) j 


DECLARE BIT(l), 

FASE , 

FBRNI , 

FCLS4 , 

FFBCH , 

FHST , 

FSSAC , 

FSSIO , 

FTADV , 

FT60P ; 

DECLARE INTEGER CONSTANT, 
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KCSSK ( 

203) 

» 


KSSB1 ( 

18) 

$ 


KSSB2 ( 

26) 

9 


KSSB3 ( 

17) 

9 


KSSB4 ( 

9) 

9 


KSSB5 ( 

26) 

9 


KSSB6 ( 

13) 

9 


KSSB7 ( 

22) 

9 


KSSB8 C 

11) 

9 


KSSPB C 

50) 

9 


KSS500MS C 

508) 

9 


KSS500SEC ( 

507937), 


KSSINDXALU 


(410) 


KSS I NDXECS V 


(386) 


KSS I NDXECS 1 


(384) 


kssindxgain 


(405) 


KSS I NDXGSS 


(378) 


KSSI NDXSBHI 


(388) 


KSSINDXSBLO 


(390) 


KSSI NDXSBQM 


(392) 


KSSINDXSI VA 


(380) 


KSSTNDXS1VH 


(382) 


KSSIM0XS4C1 


(304) 


KSSINDXTB3A 


(301) 


KSSI NDXT65A 


(394) 


KSSINDXTB5B 


(399) 


KSSI NDXTB6A 


(343) 


KSSINDXTB8B 


(348) 


KSS INDXTB6C 


(352) 


KSSINDXTB6D 


(373) 

l 


DECLARE INTEGER, 

SSTTBPTR ARRAY (8) CONSTANT (0, 28, 41, 84, 113, 151, 

230, 281), 

SST1PTR, 

SST2PTR , 

VATRR , 

VATR4 , 

VGBIA , 

VSCJO , 

VSC12 . 

VSC30 , 

VSC32 , 

VSSRT , 

vsstm , 

VSSW , 

VSTGO s 

DECLARE BIT ( 26 ) , 

VASPI , 

vhstw , 

VPSTG , 

VSCCA , 

vscn , 

VSC31 , 

VSNA 

VSNA1 , 
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VSSCA , 
VSSFB , 
VSTG } 
DO CASE DOSSM; 


GO 

TO 

MSSOOO; 

GO 

TO 

MSS05; 

GO 

TO 

MSS 1 0 ; 

GO 

TO 

MSS 20 | 

GO 

TO 

MSS30; 

GO 

TO 

MSS40 ; 

GO 

TO 

MSS50; 

GO 

TO 

HSS55 ; 

GO 

TO 

MSS60 ; 

GO 

TO 

MSS70; 

GO 

TO 

MSS80 ; 


END} 

MSSOOOl J 

INHIBIT ALL INTERRUPTS EXCEPT TLC 


FA$E = FALSE} 

F. • • 

IF DVASW AND MSKSSS4C0 - , «0 
THEN DO) 

E ... 

DVASW a DVASW AND MSKSSWVj 

F . . 

IF VASPI AND MSK3SS4C0 ’’a 0 THEN GD TO SS0060; 

CALL EGF i 08) /*RESCHEDULE TIMER 1 (NOT CODED)*/ 

E 

VASPI » MSKSSS4C0; 

SST1PTR a KSSINDXSIVR; 

GO TO SS1050; 

END; 

E 

IF DVASW AND MSK8SSPEC 0 
THEN DO; 

F ... 

DVASW a DVASw AND MSKSSWV: 

CALL FGP08 ; /*RESCHEDULE TIMER 1 (NOT CODED)*/ 

E . . 

VASPI a MSKSSSPEC; 

SST1PTR ■ KSSINDXSIVA) 

GO TO SS 1050; 

END; 

F . 

IF DVASW AND MSKSSTP6C 0 
THEN DO; 

F . . 

DVASw a DVASW AND NOT MSKSSTB6C; 

F ... 

VASPI ■ VASPI OR MSKSST6C} 

F . . 

DVMC6 » D VMC6 OR MSKMCfiTB6C } 
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F 

E 

E 

F 

E 

F 

F 

F 

F 

f: 

E 

F 

F 

M S S 0 5 i 
E 

SSOOOOi 

s 

SSOOlOi 

F 


SST1PTR * KSSINDXTB6C; 

CALL SSTUPO ASSIGN (VATRR)j /♦UPDATE SS TIME*/ 
GO TO SS 1 050 j 

END; 

IF DVASW AND MSKSSCLS1 **■ 0 
THEN DO; 

VSC10 * SST1PTR; 

vsc 1 1 • VASPI; 

VSC12 * VATRR ; 

VASPI « MSKS3CL1; 

CALL SSTUPD ASSIGN (VATRR ) j /♦UPDATE SS TIMEV 

FTADV « TRUE j 

• • 

IF DVASW AND MSKS3TB6A *»a 0 
THEN DO} 

• « • 

DVASW a DVASW AND NUT MSKSSTB6A; 

• • • 

DVMCfi a DVMC6 OR MSKMC6TBDA; 

SST1PTR ■ KSSINDXTB6A; 

END; 

ELSE IF DVASW AND MSKSSS4C1 '’a 0 
THEN DO; 

• • • 

DVASW a DVASW AND NOT HSKSSS4C1 } 
SST1PTR a KSSINDXS4C1; 

end; 

ELSE DO; 

DVASW a DVASW AND NOT MSKSSTB6B; 
• • • 

DVMC6 a DVMC6 OP MSKMC6TB6B } 
SST1PTR a KSSINDXTB6R; 

END; 

GO TO SS 1 050 ; 

END; 

IF FSSAC THEN GO TO SS0060; 

ELSE GO TO SSOOOO ; 

FSSAC a FALSE} 

IF SSTABLE MSKSSNSEND THEN 

1 , SST 1PTR 

DO; 

CALL SSTUPD ASSIGN (VSTGO); /*UPD ATE SS TIME*/ 
VSTGO a VSSRT - VSTGO; 

IF VSTGO < KSS500MS THEN GO TO MSS30; 

• 

IF DFTUP 
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F 


F. 


F 

SSOOlB* 


E 

SS 0 1 70 t 


E 


F 


E 

E 


C 


E 


E 


THEN DO; 

DVTGB ■ DVTGB + VGBIA; 

VGBIA * 0; 

DFTUP ■ FALSE; 

GO TO SSOOlOj 

END; 

IF DVASW o 0 THEN GO TO SS0170; 

VSSTM * VSTGO + DVTRB - DVTGB - KCSSK; 

OVSST « VSSTM + DVTMR; 

DGSSM a 5; /*SET S3 ENTRY INDEX FOR MSS30*/ 

IF NOT DFIL3 THEN CALL EGP08 ; /*RESCHED T 1 (NOT CODED)*/ 
GO TO SS0060; 

END; 

IF DVASW 0 THEN GO TO 3S0170; 

READ (CLOCK ) ITEMP; 

IF ITEMP - DVRTC < 0 

THEN ITEMP = ITEMP - DVRTC ♦ DKWTCOVF; 

ELSE ITEMP = ITEMP - DVRTC; 

DVSST » DVTMM + KSS5008EC + ITEMP/4; 

DGSSM = 2; /*SET SS ENTRY INDEX FOR MSS 05*/ 

IF NOT DFIL3 THEN CALL EGP08; /*RESCHD T1 (NOT CODED)*/ 

GO TO SS0060; 

« • 

IF DVASW AND MSKSSCLS3 » 0 
THEN DO; 

• * 

IF DVASW AND MSKSSACQU 0 
THEN DO; 

• • • 

DVASW e DVASW AND NOT MSKSSACQU} 

SST2PTR * KSSINDXGAIN) 

CALL SSTtiPD ASSIGN ( V ATR4 ) } /*UPD ATE SS T*/ 

END) 

ELSE DO) 

IF DVASW AND MSKSSTB6D ’’a 0 
THEN DO) 

DVASW a DVASW AND NOT MSKSSTBbD) 
SST2PTR ■ KSSINDXTB6D) 

CALL SSTUPD ASSIGN ( VATR4) J 
/♦UPDATE SS TIME*/ 

END) 

ELSE DO) 1 

DVASW * DVASW AND NOT MSKSSLI) 
SST2PTR ■ KSSINDXALUj 
VATR4 a 0) 

END) 

END) 

FCLS4 a TRUE) 
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E 

E 

E 

E 

E 

E 

E 

E 

E 

F 

E 

E 

E 

E 

E 

E 


FTADV » FALSE; 

FHST ■ TRUE; 

CALL SS210; /♦SET UP CLASS 4 ALTERNATE SEQUENCE*/ 
GO TO SS0060; 

END; 

IF VASPI 0 THEN GO TO 380060; 

VSC30 ■ SST1PTR; 

VSC31 = VASPI; 

VSC32 * VATRR; 

VASPI « MSKSSCL3; 

CALL SSTUPD ASSIGN (VATRR); /*UPD ATE SS TIME*/ 

FTADV » TRUE; 

FHST * TRUE; 

IF DVASW AND MSKSSGNSS 0 

THEN DO; 

DVASW ■ DVASW AND NOT MSKSSGNSS; 

SST1PTR « KSS INDXGSS ; 

GO TO SS0230; 

END; 

IF DVASW AND MSKSSSBLO 0 

THEN DO; 

• • • 

DVASW « DVASW AND NOT MSKSSSRLOj 
SST1PTR a KSSINDXSBLO; 

GO TO SS0230 ; 

END; 

• * 

IF DVASW AND NSKSSSBHI "’a 0 

THEN DO; 

• • • 

DVASW « DVASW AND NOT MSKSSSRHI ; 

SST1PTR a KSSINDXSBHI; 

GO TO SS0230; 

END; 

• • 

IF DVASW AND MSKSSSBOM ^a 0 

THEN DO; 

• • • 

DVASW a DVASW AND NOT MSKSSSBOM; 

SST1PTR » KSSINDXS80M; 

GO TO SS0230; 

END; 

• • 

IF DVASW AND MSKSSEC8V "'a 0 

THEN DO; 
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SST1PTR « KSSINDXECSV ; 

GO TO SS0230 ; 

END ; 

F • • 

IF DVASw AND MSKSSECS 1 0 THEN SST1RTR » KSSINDXECSi; 

ELSE DO; 

8ST1PTR * K3SINDXTB3A; 

E . 

DVASW a DVASW AND NOT MSKSST3 A ; 

END; 

S S 0 2 3 0 I CALL SS21 0 ; /*SET UP SS TABLE*/ 

GO TO SS0000 ; 

E 

SSnoSOi IF NOT FASE 

THEN DO; 

r. 

FASE a TRUE; 


RELEASE PREVIOUSLY ENABLED INTERRUPTS 


E 

MSS 1 0 I 
E 
F 

E 

S 

SSI 050 t 
E 

F 


E 

M S S 2 0 t 
E 


E 

MSS30 i 
E 

S 

E 


End; 

RETURN; /*COMMON SS EXIT*/ 

VASPI = BIN (26) 'O' } 

VATRR ■ 0; 

FCLS4 a FALSE; 

DVASW a DVASW AND MSKSSWV; 

CALL EGPOB; /*RESCHEDULE TIMER 1 (NOT CODED)*/ 

FTAOV a TRUE; 

SST1PTR » SSTIBPTR ; 

DTBID 

CALL SS210; /*SET UP NEXT SS*/ 

IF FSSAC THEN GO TO MS320; 

VSSW a KSSB 1 ; 

FHST » TRUE; 

GO TP SSOOOO; 

IF FSSIO THEN WRITE (SS) MSKSSRESET ; 

FHST » FALSE; 

CALL SSTUPQ(KSSB8.2) ; /*SCHEDULE SS CHECK, MSSOb*/ 

VSSW * KSSBb; 

GO TO SS0060 ; ’ 

FSSAC « TRUE; 

• • • • 

VSN A , V SN A 1 a (VSNA AND MSKSSSNA) ; 

1 TO 26 1 TO 26 1 TO 24 

IF VSNA a 0 
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THEN DO; 

E 

FSSAC * FALSE; 

CALL SS201 1 /*ADVANCE TO NEXT SS*/ 
GO TO SSOOOOJ 

ends 

E ... 

V8TG ■ VSNA AND VPSTG; 

F . . 

FSSIO * VSTG ■’» 0; 


E 

F 

E 


M S S 4 0 t 
E 


E 

MSS50 j 
S 
E 

E 

F 

F 

F 

F 

E 

M S S 5 5 » 
E 


IF NOT FHST THEN GO TO SS4000; 

IF DFLT x 2 THEN GO TO SS4000; 

READ (SSFB ) BTEMP; /*READ SS FEEDBACK REGISTER*/ 

IF BTEMP AND MSKSSHS » 0 THEN GO TO SS4000; 

IF FSSIO THEN WRITECSS) MSKSSRESFT; /* ISSUE SS RESET*/ 

CALL SSTUPQCKSSB4.6) S/*SCHEDULE ST AGE/ ADDRESS ISSUANCE MSS4U*/ 
VSSW x KSSB5 ; 

GO TO SS0060; 

WAIT ; /*DELA Y BEFORE ISSUING STAGE AND ADDRESS*/ 

IF FSSIO THEN WRITE (SS) V8NA;/*ISSUE STAGE AND ADDRESS*/ 

CALL SSTUPU ( VSSW , 7) ;/*SCHEDULE ADDRESS VERIFICATION, MSS50 */ 
WAIT ; /*DELA Y FOR DOM TELEMETRY*/ 

WRITE (DOM) ; /*OUTPUT SS AND DO REGISTERS VIA DOM TELEMETRY*/ 

GO TO SS0060 ; 

VSCCA x VSNA CAT NOT VSNA CAT BIN(11)'0'J 

1 TO 7 8 TO 15 

VSSCA s VSCCA AND MSKSSHS; 

IF VSTG ’’X 0 

THEN READ ( SSFB) BTEMP ; /*RE AD SS FEEDBACK REGISTER*/ 

ELSE BTEMP x VSCCA; 

VSSFB x BTEMP AND MSKSSHS; 

• • 

IF VSSFB "•* VSSCA THEN GO TO SS5540; 

• • 

IF VASPI AND MSKSSS4C0 "’x 0 
THEN DO; 

DFILE x DFILE OR MSKFPSISSA; 

DVSST * 1.E10; 

RETURN; /*MSS50, MSS55*/ 

END; 

IF VSSPT * 0 THEN GO TO MSS60 ; 

CALL SSTUPD ASSIGN CDVTRB) ; /*UPDATE SS TIME*/ 

IF VSSRT - DVTRB <x KSSRB THEN GO TO MSS60; 
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E 

S S ft ft 4 0 « 
E 


E 

S 

E 

E 

F 

E 

F 


E 

F 

MSSfiOt 

E 

F 

S 

E 

E 

E 

F 

E 

S 


VSSTM * VSSRT - l)VTGB - KSSRR ; 

DVSST a VSSTM + DVTMRj 

DGSSM s P: /*SFT $$ ENTRY INDEX FOR MSS60*/ 

IF NOT DFIL3 THEN CALL EGP08 5 /♦RESCHEDULE T1 (NOT CODED) 3 * 1 / 

RETURN; /*MS$ftO. M S S 5 ft * / 

IF VSSF3 = 0 AND VSSCA MSKSSZFSF THEN GO TO MSS55; 

IF FSSIO THEN WPITF(SS) MSKSSRESET ; /♦ISSUE RESET*/ 

CALL SSTUPOCKSSBfi.il); /*SCHFDULE COMP S T AGE / A DURESS . MSS80*/ 
ITEMP = 0; 

DO FOR I = 8 TO 1ft; 

IF VSSFB "•« VSSCA THEN ITEMP * ITEMP ♦ 1; 

I I 

END; 

IF ITEMP < 2 THEM RETURN; /*MSS50*/ 

• « • 

0VMC4 s DVMC4 OR MSK MC4SSCR ; 

IF FFBCH 

THEN DO; 

FFBCH c FALSE; 

WRITE(ICR) MSK I CRSSCB ; /*SWITCH SS TO CHANNEL B*/ 

• a a 

DVICR a DVICR OK MSKICRSSCR} 

END* 

CALL UTR30 J /*DEL AY FOR TELEMETRY AS REQUIRED*/ 

WRITE (TELSSFH) VSSFR; /*TELFMETFR SS FEEDBACK*/ 

RETURN: /*MSSfaO*/ 

• a a 

BTEMP a VSTG OR MSKSSREAOj 

IF FSSIO THEN WRITECSS) BTEMP; /*ISSUE READ COMMAND*/ 

READ (CLOCK ) ITEMP; /*GET TIME FOR SS TELEMETRY WORD*/ 

CALL SSTUPQCKSSB2, 10) ;/*SCHEDULE READ RESET, MSS70*/ 

BTEMP a VSNA CAT BIN'OO' OR BIT ( ITE M P ) ANO MSKRTCj 

3 TO 26 

CALL UTR30 : /*DEL AY FDR TELEMFTPY AS REQUIRED*/ 

a 

WRITE (TFLSSSA) PTEMP; /*TELEMFTFR ST AGE/ ADDRESS AND READ TIME*/ 
IF NOT DFACQ 

THEN DO; /*COMPRESS DATA WHEN NOT OVER A STATION*/ 

BTEMP a DVDCT OR MSKSSDCT; 

a 

CALL MPC80CBTEMP) j /*COMPRESS TIME AND TAG*/ 

BTEMP a VSNA OR MSKSSDCS; 

1 TO 23 
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E 

E 

E 

E 

E 

E 

E 

E 

E 

F 


E 

MSS70 1 

E 

E 

F 

E 

E 

E 

E 

F 

E 


CALL MPC80CBTEMP) ;/*COMPRESS STAGE AND ADDRESS*/ 

end: 

• • 

IF VASPI AND MSKSSS4C0 0 
THEN DO? 

VASPI « BIN (26) 'O' | 

DFIIE a DFILE OR MSKFPSCORD; 


END; 

IF VSNA1 a MSKSSHIG THEN DVMC7 a DVMC7 OR MSKMC7HI G : 

• • at a 

ELSE IF VSNA1 o MSKSSLOG THEN D VMC7 a DVMC7 OH MSKMC7L0R: 

ELSE IF VSNA1 ■ MSKSSOMG THEN 0VMC7 a DVMC7 OH MSKMC7OM0} 

ELSE IF VSNA1 a MSKSSSIVB 
THEN DO} 

IF FBRNJ 

THFN DVMC5 » DVMC5 OH MSKHC54B 1 1 1 
ELSE DVMC6 » DVMC6 OR MSKMC68BRI } 

END; 


RETURN} /*MSS60*/ 

IF FSSIO THEN HRITE(SS) 0} /*RESET READ COMMAND*/ 

CALL SSTUPQ(KSSR3,2) }/*SCHEDULE HUNG STAGE TEST, MSS05*/ 
CALL SS20 1 } /*ADVANCE TO NEXT SS*/ 

VSSH a KSSB1} 

FHST‘ a (VHSTW AMD VSTG) *’« VSTG} 

• • 

IF V3NA1 a MSKSSWVO 
THEN 00} 

• • ft 

DVASW a DVASW AND NOT HSKSSECS1: 

DFWV a FALSE; 

END; 

ELSE IF VSNA1 * HSKSSWVC 
THEN DO; 


DVASW ■ DVASW AND NOT MSKSSECSV; 
DFWV a TRUE; 

END; 

ELSE IF VSNA1 a MSKSSSCC 

• • • 

THEN DVDPM a OVOPM OR MSKDIN9} 
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F. 

MSS80} 

F 


SS201 « 
E 


S S 2 1 0 i 
E 

SS2160I 

S 

F. 

E 

E 


5 S ? 0 2 0 : 


E 

E 


E 


F 


F 


RETURN? /*MSS70*/ 

VSN A a VSCCA? 

IF FSSIO THEN WRITE(SS) VSNA?/*I3SUE ST AGE/COMPLEHENTEO ADDR*/ 
CALL SSTUPQ (KSSB7 ,8) ?/*SCHF.DULE READ COMMAND, MSS55*/ 

WAIT ? /*DELAY FOR DOM TELEMETRY*/ 

WRITE(DOM) ?/*OUTP.UT SS AND DO REGISTERS VIA DOM TELEMETRY*/ 
RETURN? /*MSS80*/ 

PROCEDURE? /*SS TABLE ADVANCE ROUTINE*/ 

IF FTADV 

THEN SST1PTR * SST1PTR + 1; 

ELSE SST2PTP a SST2PTR * 1; 

CALL SS2 1 0 ? / * S E T UP NEXT SWITCH SELECTOR*/ 

CLOSE SS201: 

PROCEDURE: /*SS SELECTION AND SETUP ROUTINE*/ 

IF FTADV THEN GO TO SS2020? 

IF SST ABLE >a 0 THEN GO TO SS2070} 

1 , SST2PTR 

FCLS4 a FALSE? 

• * • 

0VMC6 a DVMC6 AND NOT MSKMC6LUI ? 

DVMC7 a DVMC7 AND NOT MSKNC7T6D; 

GO TO SS2090? 

IF SST ABLE >= 0 THEN GO TO SS2D30 ; 

1 , SST 1 PTR 

• • 

IF VASPI AND MSKSSSPEC ’’a 0 
THEN DO? 

• • 

VASPI = MSKSSS4C0; 

• • • 

PVASW = OVASW AND MSKSSWV; 

SST 1 PTR * KSSINDXSI VR ; 

GO TO SS2020; 

END ; 

IF VASPI AND M-SKSSCL3 “*= 0 
THEN DO; 

SST 1 PTR a VSC3Q ; 

VASPI = VSC31; 

VATRR a VSC32 J 
GO T 0 * SS2020 ; 

END; 

• • 

IF VASPI AND MSKSSCL 1 0 

THEN DO: 

SST 1 PTR a VSC10; 

• • 

VASPI a VSC11? 
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E 

F 

E 

F 

SS2030 * 
SS2070 s 
S 

S 

F. 

S 

E 

S 

S S 2 0 9 0 i 

F 

SS2040t 

S 

E 

SS2050 1 
S 

SSTUPOs 


SSTUPQ* 


VATRR ■ VSC 1 2 ; 

GO TO SS2020 j 

END; 

VASPI * FALSE; 

VATRR « 0; 

IF FT60P 

THEN DO; 

FT60P ■ 

SST1PTR 

END; 

ELSE SST1PTR 
GO TO SS2020 ; 

IF NOT FCLS4 THEN GO TO SS2040; 

IF SSTABLE DKRTCSEC/40 ♦ VATRR - KSSbOOMS >« 

1 , SST 1PTR 

SSTABLE DKRTCSEC/40 ♦ VATR4 

1 f SST2PTR 
THEN DO; 

FTADV * FALSE; 

VSSRT * SSTABLE DKRTCSEC/40 + VATR4; 

1 0 S8T2PTR 

VSNA c BIT (SSTABLE ) 5 

2, SST2PTR 

END; 

ELSE 

DO; 


FALSE; 

« KSSINDXTB5A; 
* KSSINDXTB5B; 


FTADV » TRUE; 

VSSRT a SSTABLE DKRTCSEC/40 4 VATRR; 

1,SST1PTR 


END; 


VSNA * B I T ( SSTABLE ) ; 


2 $ SST 1PTR 


• • 

VHSTW a VSNA AND MSKSSSR; 

1 TO 24 

CLOSE SS210J 

PROCEDURE ASS I GN ( TI ME ) ) /*SS TIME UPDATE ROUTINE*/ 

DECLARE TIME INTEGER; 

READ (CLOCK ) ITEMP; 

ITEMP a ITEMP - OVRTC; 

IF ITEMP < 0 THEN ITEMP a ITEMP ♦ DKRTCOVF; 

TIME, DVTPB a DVTGB + DVTRR ♦ ITEMP/4; 

CLOSE SSTUPD; 

PROCEDURE (BIAS, ID); /*UP[)ATE SS TIME AND SCHEDULE SS FUNCT*/ 
DECLARE INTEGER, BIAS, ID; 

READ(CLOCK) ITEMP; 

ITEMP a ITEMP - DVRTC; 
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IF ITEMP < 0 THEN ITEMP ■ ITEMP ♦ DKRTCOVF ; 

DVTRB ■ DVTGB ♦ DVTRR + ITEMP/4J 
VSSTM s BIAS + DVTRR + ITEMP/4 j 
DVSST b VSSTK + DVTMRj 

IF NOT DFIL3 THEN CALL EGP08 J /*RESCHEDtJLE T1 (NOT COOED)*/ 

CLOSE SSTUPQj 
CLOSE MSSOOj 
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TASKKEYl PROGRAM (PRIORITY, TSKID)} /*ATM TASK KEYING ROUTINE*/ 

DECLARE INTEGER, 

PRIORITY, /*PRI0RITY LEVEL OF TASK BEING KEYED*/ 

TSKID, ^IDENTIFICATION INDEX FOR TASK BEING KEYED*/ 

I, /*OVERFLOW TABLE POINTER CHAIN INDEX*/ 

Jj /*OVERFLOW TABLE OPEN-SLOT INDEX*/ 

PRIORITY CONTROL TABLE CONTAINS ONE ENTRY FOR EACH PRIORITY LEVEL. 
EACH ENTRY CONSISTS OF FIVE ITEMS. 

1. EITHER THE TASK ID OR THE LOCATION OF THE NEXT 
EXECUTABLE INSTRUCTION OF THE TASK CURRENTLY ASSIGNED 
TO A GIVEN PRIORITY LEVEL. IN ORDER TO DISTINGUISH 
BETWEEN THE TWO THE ID WILL BE STORED AS A NEGATIVE 
VALUE. A VALUE OF ZERO WILL SIGNIFY THAT NO TASK IS 
CURRENTLY ASSIGNED TO THAT PRIORITY LEVEL. 

2. TASK REGISTER CONTENTS (INITIALLY SET TO ZERO). 

3. TASK REGISTER CONTENTS (INITIALLY SET TO ZERO). 

4. TASK REGISTER CONTENTS (INITIALLY SET TO ZERO), 

5. INDEX POINTER TO THE BEGINNING OF THE PRIORITY OVERFLOW 

TABLE CHAIN FOR THAT PRIORITY LEVEL. A VALUE OF ZERO 
INDICATES END OF CHAIN. 

DECLARE ARRAY(5,10) ATMPCT INTEGER) 

THE PRIORITY OVERFLOW TABLE IS USED FOR KEYING TASKS ON A 
PRIORITY LEVEL WHICH IS CURRENTLY ASSIGNED TO ANOTHER TASK. 

THE ENTRIES ARE NOT ALLOCATED TO A FIXED PRIORITY BUT ARE 
ASSIGNED DYNAMICALLY AS REQUIRED. ALL OVERFLOW ENTRIES FOR 
EACH PRIORITY LEVEL ARE CHAINED TOGETHER SUCH THAT THE TASKS 
CAN BE EXECUTED ON A FIRST-IN-FIRST-OUT BASIS. EACH ENTRY 
CONSISTS OF TWO ITEMS. 

1. INOEX POINTER TO THE NEXT ENTRY IN THE CHAIN. A VALUE OF 
ZERO INDICATES END OF CHAIN. 

2. TASK ID INDEX. A VALUE OF ZERO SIGNIFIES AN UNASSIGNED 
ENTRY. 

DECLARE ARRAY (2,25) ATMPOVFT INTEGER; 

INHIBIT ALL INTERRUPTS. 

IF THE REQUESTED PRIORITY LEVEL IS NOT CURRENTLY ASSIGNED, 
INITIALIZE THE ENTRY FOR THIS TASK. 

IF ATMPCT »0 

1, PRIORITY 
THEN DO'; 

ATMPCT a - TSKID; 

1, PRIORITY 

(ATMPCT) a Oj 

2 TO 4, PRIORITY 

END; 

OTHERWISE, SEARCH FOR THE END OF THE OVERFLOW POINTER CHAIN. 


ELSE DO 
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I « ATMPCT J 

S 5, PRIORITY 

IF I ■»* 0 THEN 

CHAIN SEARCH! IF ATMPOVFT 0 

S 1,1 

THEN DO; 

I ■ ATMPOVFT J 

S 1,1 

GO TO CHAIN SEARCH } 

END ; 

WHEN THE END OF THE OVERFLOW POINTER CHAIN HAS BEEN FOUND, SEARCH 
FOR AN EMPTY SLOT IN THE OVERFLOW TABLE. 

DO FOP J * 1 TO 25 { 

IF ATMPOVFT ■ 0 THEN GO TO SLUT_FOUNDj 
2 , J 

END} 

FALLING THROUGH THE LOOP INDICATES A FULL OVERFLOW TABLE AND SHOULD 
CAUSE AN ERROR HALT. 

SLOT_FOUNDl 

ADD THIS ENTRY TO THE END OF THE OVERFLOW POINTER CHAIN AND STORE 
THE TASK POINTER IN IT. 

IF I -'= 0 

THEN ATMPOVFT »J| 

1,1 

ELSE ATMPCT * Jl 

5, PRIORITY 

ATMPOVFT » Oj 

1 » J 

ATMPOVFT » TSKIDj 

2,J 

END) 

RELEASE INTERRUPTS AS REQUIRED 
CLOSE TA8KKEY; 
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COMPOPL 8YS-DD 

• 1 COMMON 

1 DATA 

DECLARATIONS" $ 


VRBL 

DVMLR 

F 





$ 

VRBL 

DV1MR 

F 





$ 

VRBL 

DKMIR 

A 

260 

S 

0 P 

1630 

$ 

VRBL 

DKRTCOVF 

A 

26D 

s 

0 

P 8192D 

$ 

VRBL 

DKRTCSEC 

; A 

26D 

s 

10D 

P 4063. 4920 

s 

VRBL 

DVAX 

A 

26D 

3 

4 


$ 

VRBL 

DVA2 

A 

26D 

S 

4 


s 

VRBL 

DVA3 

A 

260 

S 

4 


s 

VRBL 

0 V A 4 

A 

260 

s 

4 


$ 

VRBL 

DVA5 

A 

26D 

s 

4 


$ 

VRBL 

DVA6 

A 

26D 

s 

4 


$ 

VRBL 

DVMLO 

A 

26D 

s 

0 


s 

VRBL 

dvmlt 

A 

26D 

s 

-2 


$ 

VRBL 

DVM05 

A 

26D 

s 

0 


$ 

VRBL 

OVM06 

A 

26D 

s 

0 


$ 

VRML 

OVRTC 

A 

260 

s 

0 


$ 

VRBL 

DVSST 

A 

26D 

s 

-2 


$ 

VRBL 

DVTGB 

A 

26D 

s 

-2 


$ 

VRBL 

DVTMM 

A 

26D 

s 

-2 


$ 

VRBL 

DVTMR 

A 

26D 

s 

-2 


$ 

VRBL 

DVTRB 

A 

26D 

s 

-2 


$ 

VRBL 

DVTRR 

A 

26D 

s 

-2 


$ 

VRBL 

DVTT1 

A 

26D 

s 

0 


$ 

TABLE 

DVCC 

V 

NONE 

3 * 




FIELD FI A 26D S 25D S 
LIKE-TABLE DVDC $ 

LIKE-TABLE DVTH $ 

END TABLE DVCC $ 


VRBL 

DTBID I 

26D 

3 




S 

VRBL 

DVDG3 I 

261) 

S 




$ 

VRBL 

DVEMR I 

26D 

U 




$ 

VRBL 

dvhda I 

26D 

s 




$ 

VRBL 

DVHDB I 

260 

s 




S 

VRBL 

DVLDR I 

260 

s 




$ 

VRBL 

DVLRC I 

260 

s 




$ 

VRBL 

TEMP I 

26D 

s 




$ 

TABLE 

DVRE V 

NONE 

3 

$ 





FIELD 

F2 I 

26D J 

3 

$ 


END-TABLE DVRE $ 







VRBL 

MSKABSLAD 

I 

26D 

U 

p 

1E3 

$ 

VRBL 

MSKSSCL3 

I 

26D 

U 

p 

1 E 1 0 

s 

VRBL 

MSKSSDCS 

I 

26D 

u 

p 

5E10 

$ 

VRBL 

MSKSSDCT 

I 

260 

u 

p 

4054E5 

$ 

VRBL 

MSKSSHIG 

I 

260 

u 

p 

10072E4 

s 

VRBL 

MSKSSLOG 

I 

260 

u 

p 

10052E4 

$ 

VRBL 

MSKSSNSEND 

I 

260 

u 

p 

377777776 

$ 

VRBL ' 

MSKSSOMG 

I 

26D 

u 

p 

10007E4 

$ 

VRBL 

MSKSSSCC 

I 

260 

u 

p 

10031E4 

$ 

VRBL 

MSKSSSIVB 

I 

260 

u 

p 

02023E4 

$ 

VRBL 

MSKSSSPEC 

I 

260 

u 

p 

4E10 

s 

VRBL 

MSKSSS4C0 

I 

260 

u 

p 

2E10 

$ 

VRBL 

MSKSSWVC 

I 

260 

u 

p 

10105E4 

$ 

VRBL 

MSKS8WV0 

I 

260 

u 

p 

1 0 1 4 5 E 4 

$ 

VRBL 

DFACO 3 

1 LOSS * 9 



’GAIN 1 

$ 
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VRBL 

DFDBF 

S 

•GOOD* , 


'FAILED' 

s 


VRBL 

DFDTL 

s 

• INPROG 1 

* 

•NOTINPROO' s 


VRBL 

DFLT 

s 

1 FLIGHT 1 

$ 

' SIM ' , 

•REP' 

$ 

VRBL 

DFTUP 

s 

* NO' , 


' YES ' 

S 


VRBL 

DFSMC 

s 

'ENABLE ' 

$ 

•DISABLE ' 

s 


VRBL 

DFWV 

s 

'CLOSE 1 , 


•OPEN' 

s 


VRBL 

DGSSM 

s 

'SSOO', ' 

SS05 

' , 'SS10' , 

' 3320 • # 

' SS30 ' 


1 ; 

SS40 1 

' SS50 ' , ' 

SSB5 

' , • SS60 ' , 

» SS70 ' , 

•sseo's 

VRBL 

DFIL1 

B 




$ 


VRBL 

0FIL2 

B 




$ 


VRBL 

DFIL3 

B 




$ 


TABLE 

DVA3W 

V 1 

1 $ 






FIELD S4C0 B 0 25D S 

FIELD SPEC B 0 24D $ 

FIELD TB6C B 0 23D S 

FIELD 6NSS B 0 22D $ 

FIELD SBLO B 0 2tD S 

FIELD SBHI B 0 20D $ 

FIELD SBOM B 0 19D $ 

FIELD ECSV B 0 18D $ 

FIELD ECS 1 B 0 17D $ 

FIELD T3A B 0 16D S 

FIELD TB6D B 0 I5D J 
FIELD TB6A BO 9D S 
FIELD TB6B BO 8D $ 

FIELD S4C 1 BO 7D $ 

FIELD ACQU BO ID 5 

FIELD LI B 0 OD S 

END-TABLE DVASW $ 

TABLE DVDPM V 1 1 $ 

FIELD PIN24 B 0 25D S 
FIELD DIN23 B 0 24D $ 
FIELD DIN22 B 0 23D $ 
FIELD DIN21 B 0 22D $ 
FIELD DIN20 B 0 21D $ 
FIELD DIN19 B 0 20D S 
FIELD DIN18 B 0 19D S 
FIELD DIN17 B 0 1BD $ 
FIELD DIN16 B 0 17D $ 
FIELD DIN15 B 0 16D S 
FIELD DIN14 B 0 15D S 
FIELD DIN13 B 0 14D S 
FIELD DIN12 B 0 13D $ 
FIELD DIN11 8 0 12D $ 
FIELD DIN10 B 0 1 1 D S 
FIELD DIN9 B 0 10D S 

FIELD DIN8 BO 9D $ 

FIELD DIN7 BO 8D S 

FIELD DIN6 B 0 7 S 

FIELD DIN5 B 0 6 S 

FIELD DIN4 B 0 5 $ 

FIELD DIN3 B 0 4 $ 

FIELD DIN2 B 0 3 $ 

FIELD DIN1 B 0 2 $ 

END-TABLE DVDPM $ 
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TABLE DFILE V 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 

END-TABLE DFILE 

TABLE OVICR V 
FIELD 
FIELD 
FIELD 
FIELD 

END-TABLE DVICR 

TABLE DVMC4 V 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 

END-TABLE DVMC4 

TABLE DVMC5 V 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 
FIELD 


1 1 s 
coss 

B 

0 

24D 

$ 

CORD 

B 

0 

23D 

$ 

S4CK 

B 

0 

22D 

$ 

SCGC 

B 

0 

2 1 D 

$ 

T6S0 

B 

0 

20D 

$ 

S2E0 

B 

0 

19D 

$ 

T6BI 

B 

0 

18D 

as 

ISSA 

B 

0 

170 

as 

NU 

B 

0 

16D 

$ 

EMTL 

B 

0 

15D 

$ 

TU 

B 

0 

14D 

$ 

I NT2 

B 

0 

1 3D 

$ 

LIO0 

B 

0 

1 2D 

$ 

FPAT 

B 

0 

1 ID 

$ 

$ 

1 1 $ 
CA 

B 

0 

1 3D 

$ 

SSCB 

B 

0 

11D 

$ 

SWG 

B 

0 

90 

$ 

BG 

B 

0 

3 

$ 

$ 

1 1 * 
Z AC 1 

B 

0 

25D 

$ 

ZAC2 

B 

0 

24D 

$ 

X AC 1 

B 

0 

23D 

$ 

X AC2 

B 

0 

22D 

$ 

Y AC 1 

B 

0 

21D 

$ 

YAC2 

B 

0 

2 OD 

$ 

ZGA1 

B 

0 

19D 

$ 

ZGA2 

B 

0 

1BD 

$ 

XG A 1 

B 

0 

17D 

$ 

XGA2 

B 

0 

16D 

$ 

YGA 1 

B 

0 

15D 

s 

YGA2 

B 

0 

14D 

$ 

DG1 

B 

0 

1 3D 

s 

DG2 

B 

0 

1 2D 

$ 

ACDG 

B 

0 

11D 

$ 

RCDG 

B 

0 

1 OD 

$ 

MLLB 

B 

0 

9D 

$ 

SSCB 

B 

0 

8D 

s 

EAZT 

B 

0 

7 

$ 

YAOF 

8 

0 

6 

$ 

AMF 

8 

0 

5 

$ 

BMF 

8 

0 

4 

$ 

ZAOF 

B 

0 

3 

as 

XAOF 

B 

0 

2 

as 

S 

1 1 $ 
TOMC 

B 

0 

25D 

$ 

T1MC 

B 

0 

240 

$ 

I CGM 

B 

0 

23D 

s 

RCMC 

B 

0 

22D 

$ 

ICTA 

B 

0 

20D 

$ 

T2MC 

B 

0 

19D 

$ 
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FIELD 

T3MC 

B 

0 

18D 

$ 

FIELD 

ICIO 

B 

0 

17D 

% 

FIELD 

ICOO 

B 

0 

16D 

$ 

FIELD 

IISS 

B 

0 

140 

S 

FIELD 

1116 

B 

0 

1 3D 

% 

FIELD 

I IRC 

B 

0 

12D 

$ 

FIELD 

T4MC 

B 

0 

11D 

$ 

FIELD 

IIOO 

B 

0 

10D 

$ 

FIELD 

IIEO 

B 

0 

9D 

$ 

FIELD 

DUO 

B 

0 

8D 

$ 

FIELD 

ESTG 

B 

0 

7 

$ 

FIELD 

S4BIG 

B 

0 

6 

s 

FIELD 

84B1I 

B 

0 

5 

$ 

FIELD 

S4B30 

B 

0 

4 

$ 

FIELD 

S4BTG 

B 

0 

3 

s 

FIELD 

S4BCC 

B 

0 

2 

$ 

FIELD 

T5MC 

B 

0 

1 

$ 

FIELD 

T6MC 

B 

0 

0 

$ 

END-TABLE DVMC5 
TABLE DVMC6 V 

FIELD 

S 

1 1 $ 
S8BRI 

B 

0 

25D 

$ 

FIELD 

S8BTG 

0 

0 

22D 

$ 

FIELD 

S8BCC 

8 

0 

2 1 D 

% 

FIELD 

T7MC 

B 

0 

19D 

$ 

FIELD 

SCCC 

B 

0 

18D 

$ 

FIELD 

SD04 

B 

0 

17D 

s 

FIELD 

SC4A 

B 

0 

16D 

s 

FIELD 

LUI 

B 

0 

HD 

$ 

FIELD 

SMC 

B 

0 

10D 

$ 

FIELD 

BMFA 

B 

0 

9D 

* 

FIELD 

TLC 

B 

0 

8D 

$ 

FIELD 

D04 

B 

0 

7 

s 

FIELD 

TL 1 2 

0 

0 

6 

$ 

FIELD 

TLI1 

H 

0 

5 

s 

FIELD 

T6C 

e 

0 

4 

$ 

FIELD 

SCTG 

8 

0 

3 

$ 

FIELD 

BMFB 

B 

0 

2 

% 

FIELD 

PAST 

B 

0 

0 

$ 

END-TABLE DVMC6 
TABLE DVMC7 V 

FIELD 

S 

1 1 $ 
DCSI 

B 

0 

25D 

$ 

FIELD 

T8EN 

B 

0 

24D 

s 

FIELD 

COMM 

B 

0 

2 ID 

$ 

FIELD 

LOG 

B 

0 

20D 

$ 

FIELD 

HIG 

B 

0 

19D 

$ 

FIELD 

OMG 

8 

0 

10D 

$ 

FIELD 

NUMC 

B 

0 

17D 

$ 

FIELD 

TBU 

6 

0 

16D 

$ 

FIELD 

MTLR 

' 9 

0 

15D 

$ 

FIELD 

MIH 

B 

0 

14D 

& 

FIELD 

MSC 

B 

0 

1 3D 

$ 

FIELD 

TDE 

B 

0 

1 2D 

s 

FIELD 

TARU 

B 

0 

HD 

$ 

FIELD 

TB8S 

B 

0 

10D 

$ 

FIELD 

SCLR 

B 

0 

9D 

$ 
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FIELD SCAH 
FIELD WCVL 
FIELD MU 
FIELD M2I 
FIELD M3I 
FIELD MAI 
FIELD M5I 
FIELD M6I 
FIELD M7I 
LND-TA8LE DVMC7 $ 
FND-SYS-DD COMPOOL $ 


BO 8D S 
B 0 7 $ 

B 0 6 S 

B 0 5 $ 

BOAS 
B 0 3 $ 

B 0 2 $ 

B 0 1 $ 

BOOS 


- 233 - 



CMS-2 KERNEL 6 


ITERATIVE GUIDANCE MODE 


MIGOO SYS-PROC "ITERATIVE GUIDANCE MODE" $ 
LOC-DD S 


VRBL 

CHIBARSTEER 

S 'INPROG', 

' NOTINPROG • 

VRBL 

PHASE 

S • BURN 1 ' , 

' BURN2 ' 

VRBL 

REITERATE 

S 'YES', 

•NO' 

VRBL 

SMCFLAG 

S 'NOCALC*, 

•CALCULATE' 

VRBL 

S4BURN 

S ' BURN1 ' , 

• BURN2 ' 

VRBL 

(COSTHETA, 

DELTAL3, 

DELTA2, 


DPHII, 

DPHIT, 

EPSIL0N2 


EPSIL0N3, 

GT, 

Jl» 


J 12, 

J2, 

J3, 


J3P, 

Kl. 

K2, 


K3, 

K4, 

LYP, 


LI, 

L 12, 

L2, 


L3, 

L3P, 

PHI I , 


PHUT, 

PHIT, 

PI. 


P12, 

P2, 

01. 


Q12, 

02, 

R» 


R0VEX3, 

RT, 

SINTHETA 


SI, 

S12, 

S2, 


T A U 1 , 

TAU2, 

TAU3, 


TCI, 

Til, 

T2I, 


T3I , 

Ul, 

U12, 


U2, 

V * 

VEX 1 , 


VEX2, 

VEX3, 

VT) 

VRBL 

KCCT4 F 

P 1.53D 

3 

VRBL 

KCCT8 F 

P 1.55D 

3 

VRBL 

KMU F 

P -.39860 32 Otl 50 S 

VRBL 

KT F 

P • 48497964E 

-70 $ 

TABLE 

DELTAVVP V 

NONE 3 $ 



FIELD FI 

F S 


LIKE- 

TABLE GS 

S 


LIKE- 

TABLE GV 

$ 


LIKE- 

TABLE GVSTAR 

$ 


LIKE- 

TABLE GVT 

$ 


LIKE- 

TABLE G 1 

$ 


LIKE- 

TABLE RS 

$ 


LIKE- 

TABLE RV 

$ 


LIKE- 

TABLE RVT 

s 


LIKE- 

TABLE R4 

s 


LIKE- 

TABLE VS 

s 


LIKE- 

TABLE VV 

s 


LIKE- 

TABLE VVT 

$ 


LIKE- 

Table va 

$ 


END-TABLE OELTAVVP 

s 


TABLE 

MS4 A 1 3, 

3 $ 



FIELD F2 F S 


LIKE-TABLE M4V S 
END-TABLE MS4 $ 

(EXTREF) FUNCTION ATAN(ARG) $ 

CEXTREF ) FUNCTION COS(ARG) 3 
(EXTREF) FUNCTION LOG(ARG) $ 

(EXTREF) FUNCTION SIN(ARG) $ 

(EXTREF) FUNCTION SORT ( ARG) $ 

(EXTREF) PROCEDURE EGP32 INPUT MASK S 
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(EXTREF) PROCEDURE MATMPY INPUT MATRIX, VEC1 OUTPUT VEC2 S 

(EXTREF) PROCEDURE MCMOO S 

CEXTREF) PROCEDURE MSMOO $ 

ENO-LOC-DD S 
PROCEDURE MIGUO $ 

COMMENT * 

COMMENT DUE TO THE SIZE OF IGM, ONLY A SECTION OF IT HAS $ 
COMMENT BEEN CODED. PART OF THE GUIDANCE COMPUTATIONS HAVES 

COMMENT BEEN SELECTED TO DEMONSTRATE MATHEMATICAL OPERA- S 

COMMENT TIONS. THE PHASING PORTION OF IGM HAS NOT BEEN S 

COMMENT CODED SINCE SIMILAR CAPABILITIES ARE ILLUSTRATED S 

COMMENT BY OTHER KERNELS. 

COMMENT 

COMMENT IG251 - IGM GUIDANCE PARAMETERS COMPUTATIONS 
COMMENT 

COMMENT ROTATE POSITION AND VELOCITY INTO TARGET PLANE 
COMMENT 

IG253. MATMPY INPUT C0RAD(MS4), CORAD(RS) OUTPUT CORAD (R4) 

UTROO S "DELAY FOR TELEMETRY AS REQUIRED" 

COMMENT TELEMETER X POSITION IN 4 SYSTEM, R4(0) S 

UTROO S "DELAY FOR TELEMETRY AS REQUIRED" 

COMMENT TELEMETER Y POSITION IN 4 SYSTEM, R4(l) S 
COMMENT RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE 
MATMPY INPUT CORAD (MS4) , CORAD(VS) OUTPUT CORADCV4) 

UTROO $ "DELAY FOR TELEMETRY AS REQUIRED" 

COMMENT TELEMETER Z POSITION IN 4 SYSTEM, R4(2) $ 

UTR02 $ "DELAY FOR TELEMETRY AS REQUIRED" 

COMMENT TELEMETER Y VELOCITY IN 4 SYSTEM, V4(l) $ 

COMMENT RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE 
COMMENT 

COMMENT CALCULATE RANGE ANGLE MEASURED IN ORBIT PLANE 
COMMENT 

IG254. IF T2I EQ 0 

THEN SET L12,J12, 312,012, P12,U12 TO 0 
THEN GOTO IG259 $ 

IF Til EQ 0 

THEN .SET LI, J1,S1,Q1,P1,U1 TO 0 
THEN GOTO IG258 $ 

SET LI TO VEX1*L0G(TAU1/(TAU1 - Til)) S 
SET J1 TO L1*TAU1 - VEX1*T1I $ 

SET SI TO L 1*T 1 1- J1 $ 

SET Q1 TO S 1*TAU 1 - . 5D*VEX 1*T 1 1**2 $ 

SET PI TO J 1*T AU 1 - . 5D*VEX 1*T 11**2 S 

SET U1 TO Q1*TAU1 - VEXl*TlI**3/6 S 

IG258. SET L2 TO VEX2*L0G(TAU2/(TAU2 - T2I ) ) S 
SET J2 TO L2*T AU2 - VEX2*T2I $ 

SET S,2 TO L2*T2I - J2 $ 

SET Q2 TO S2*T AU2 - . 5D*VEX2*T2I**2 $ 

SET P2 TO J2*T AU2 - . 5D*VEX2*T2I**2 $ 

SET U2 TO G2*TAU2 - VEX2*T2I**3/6 $ 

SET L12 TO LI + L2 $ 

SET J 1 2 TO J1 + J2 ♦ L2*T1I $ 

SET S 1 2 TO SI - J2 ♦ L12*CT2I ♦ TCI) S 

SET Q12 TO Q1 + Q2 * S2*T1I + J1*T2I S 

SET P12 TO PI ♦ P2 ♦ T 1 1* (2*J2 ♦ L2*TII) S 
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IG259. 


COMMENT 

comment 

COMMENT 

IG260. 


COMMENT 

COMMENT 

IG262. 


COMMENT 

COMMENT 


COMMENT 

COMMENT 


IG269, 
COMMENT 
COMMENT 
COMMENT 
IG291 . 


IQ293. 


SET U12 TO U1 ♦ U2 ♦ T1I*(2*Q2 S2»T1I) + T2I*P1 $ 

SET L3P TO VEX3*L0GCTAU3/(TAU3 - T3I ) ) S 
SET LYP TO L12 ♦ L3P $ 

SET J3P TO L3P*T AU3 - VEX3*T3I $ 

SET TIC TO Til + T2I + TCI S 

SET TSTAR TO TIC ♦ T3I S 

SET PHI I TO ATAN(R4(2)/R4(0)) $ 

S 

DETERMINE PHASE $ 

$ 

IF PHASE EQ • BURN2 ' THEN GOTO IG262 $ 

SET DELTA2 TO V*TSTAR - J3P ♦ LYP*T3I - R0VEX3* ( (TAU1 
- T 1 I )*l 1 ♦ (TAU2 - T2I ) *L2 + (TAU3 - T3I) 
*L3P)*(LYP + V - VT) $ 

SET PHIIT TO KT* ( S12 ♦ DELTA2) S 


SET PHIT TO PHI I ♦ PHIIT $ 

UTR02 $ "DELAY FOR TELEMETRY AS REQUIRED'' 

TELEMETER TERMINAL RANGE ANGLE, PHIT $ 

RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE $ 

GOTO IG291 $ 

SET SINTHETA TO (RS(0)*VS(0) + RS(l)*VS(l) + RSC2)*VSC2)) 
/ (R*V) S 

SET COSTHETA TO SQRT(1 - SINTHET 1 ** 2 ) S 
SET DPHII TO V/R+COSTHET A $ 

SET DPHIT TO VT/RT*COS(THETAT) $ 

SET PHIIT TO ,5D*(DPHII + DPHIT)*TSTAR $ 

SET PHIT TO PHI I + PHIIT $ 


UTR02 S ''DELAY FOR TELEMETRY AS REQUIRED 1 ' 

TELEMETER TERMINAL RANGE ANGLE, PHIT Jb 

RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE $ 

IF TSTAR LTEQ EPSIL0N3 THEN GOTO IG269 S 

MIG30 $ "CALC TERM RAD, VEL, FLT ANGLEtNOT CODED)" 

SET GT TO - KMU/RT**2 S 

UTROO $ "DELAY FOR TELEMETRY AS REQUIRED" 

TELEMETER TERMINAL GRAVITY VECTOR, GT $ 

RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE $ 

SET GVT(O) TO GT*COS ( THET AT ) $ 

SET GVT(l) TO 0 S 
SET G VT ( 2 ) TO GT*SIN (THETAT) S 
SET RVT(O) TO RT*COS ( THETAT ) S 
SET RVTC1), RVTC2) TO 0 S 
SET PHIT ■ PHIT - THETAT $ 

S 

ROTATE POSITION, VELOCITY, GRAVITY TO INJECTION SYSTEM'S 

S 


SET M4VC0), M4V ( 8 ) TO COS(PHIT) $ 
SET M4V(2) TO SIN(PHIT) S 
SET M4V (6) TO - SIN(PHIT) $ 

SET M4VC1), M4VC3), M4V(5), M4V(7) 
SET M4VC4) TO 1 S 

MATMPY INPUT C0RADCM4V), CORAD (R4) 
MATMPY INPUT CORAD (M4V) , CORAD ( V4 ) 
MATMPY INPUT CORAD (MS4) , CORAD(GS) 
MATMPY INPUT CORAD(M4V), CORAD(Gl) 
VARY I FROM 0 THRU 2 $ 


TO 0 S 



OUTPUT 

CORADCRV) 

$ 

OUTPUT 

CORAD(VV) 

$ 

OUTPUT 

CORADCG1) 

$ 

OUTPUT 

CORAD(GV) 

$ 
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COMMENT 

COMMENT 

comment 


COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 


IG340. 

IG350. 

COMMENT 

IG360. 

COMMENT 

IG440. 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 


SET GVSTARCI) TO ,5*(GVT(I) ♦ GV(I)) S 
SET DELTA V VP ( I ) TO VVT(I) - VV(I) - TSTARPGVST AR ( I ) * 
END IG293 * 

S 

IG314 - CALCULATE TIME TO GO (NOT CODED) $ 

S 

IF REITERATE EQ 'YES' 

THEN SET REITERATE TO 'NO* 

THEN SET L3P TO L3 

THEN SET J3P TO J3 

THEN SET LYP TO LYP + DELTAL3 

THEN GOTO IG260 $ 

SET REITERATE TO 'YES' S 

$ 

IG324 - COMPUTE CORRECTED VEL TO BE GAINEDCNOT CODED)* 

S 

IG326 - CALCULATE DESIRED PITCH AND YAW (NOT CODED)* 

* 

IF CHIBARSTEER EO 'INPROG' THEN GOTO IG350 $ 

IF T STAR GTEQ EPSILUN2 THEN GOTO IG360 $ 

IF S4RURN EQ • BURN 1 ' 

THEN SET DVMC5C0.CBS) TO 1 
THEN SET DVMLR TO 25D*KCCT4 
THEN SET DV1MR TO . 04D/KCCT4 
THEN GOTO IG340 S 
SET D VMC6 ( 0 , CBS) TO 1 $ 

SET DVMLR TO 25D*KCCT8 * 

SET DV1HR TO . 04D/KCCT8 * 

SET CHIBARSTEER TO 'INPROG' S 
SET Kl, K2t K3, K4 TO 0 5 
GOTO 10440 5 

S 

' ' IG361 - COMPUTE INTERMEDIATE PARAMETERS (NOT CODED)''* 

S 

UTROO S • 'DELAY FOR TELEMETRY AS REQUIRED'' 

TELEMETER T3I S 

RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE S 

IG446 - COMPUTE PITCH AND YAW IN 4-SYSTEM(N0T CODED) 

IF SMCFLAG EQ 'CALCULATE' 

THEN MSMOO S "COMPUTE SMC TERMS (NOT CODED)" 

MCMOO $ "PERFORM CHI COMPUTATIONS (NOT COPED)" 

IF DFILE ( 0 , INT2 ) 

THEN EGP32 INPUT MSKSCCO S "ENABLE INTERRUPT 2" 


RETURN S • 'MIGOO' ' 
END-PROC MIGOO $ 

END-SYS-PROC MIGOO $ 
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MDSOO SYS-PROC "DIGITAL COMMAND SYSTEM" $ 

LOC-DD S 

SWITCH DCSRET (DCSRETURN) S 
•NORMAL', DS530 $ 

• ERROR1 ' , DS220 $ 

• ERR0R2 • , DS235 $ 

END-SWITCH DCSRET $ 

P-SWITCH DCS S 


p 

OS 1 05 

S 

' * ERROR PATH 1 1 



p 

DS260 

s 

• •TIME BASE UPDATE 

(NOT 

CODED) ' ' 

p 

DS330 

s 

• • NAVIGATION UPDATE 

(NOT 

CODED) • ' 

p 

0S380 

$ 

• •GENERALIZED SS 

(NOT 

CODED) ' ' 

p 

0S430 

$ 

1 • SECTOR DUMP 

(NOT 

CODED) • ' 

p 

DS470 

s 

• •SINGLE MEM LOC TELEM 

(NOT 

CODED) * ' 

p 

D3510 

$ 

• 'TERMINATE 

(NOT 

CODED) ' ' 

p 

DS540 

$ 

• • MANEUVER UPDATE 

(NOT 

CODED) ' ' 

p 

0 S 5 5 0 

$ 

' 'MANEUVER INHIBIT 

(NOT 

CODED) ' ' 

p 

03670 

s 

• 'TARGET UPDATE 

(NOT 

CODED) ' ' 

p 

DS700 

$ 

• » ANTENNAE TO OMNI 

(NOT 

CODED) ' ' 

p . 

DS720 

$ 

• • ANTENNAE TO LOW 

(NOT 

CODED) ' ' 

p 

DS740 

$ 

' 'ANTENNAE TO HIGH 

(NOT 

CODED) ' ' 

p 

DS770 

$ 

"INHIBIT WATER CONTROL (NOT 

CODED) ' • 

p 

DS790 

$ 

• 'TIME BASE 8 ENABLE 

(NOT 

CODED) • ' 

p 

DS810 

$ 

' 'EXECUTE MANEUVER A 

(NOT 

CODED) ' • 

p 

DS840 

$ 

• • TD AND E ENABLE 

(NOT 

CODED) ' ' 

p 

DS860 

$ 

' 'EXECUTE MANEUVER B 

(NOT 

CODED) ' ' 

p 

DS90Q 

s 

' ' 848/ IU LUNAR IMPACT 

(NOT 

CODED) ' ' 

p 

0S960 

$ 

• •ENABLE TB6D ALT SEQ 

(NOT 

COOED) ' ' 


END-P-SW DCS S 


VRBL 

DCSD AT ACQUNT 

I 

26D 

$ 



VRBL 

DCSERLIM 


I 

26D 

P 

7 $ 


VRBL 

DCSERG4 


I 

26D 

P 

040000000 

s 

VRBL 

DCSER1G 


I 

26D 

P 

100000000 

% 

VRBL 

0CSER14 


I 

26D 

P 

140000000 

% 

VRBL 

DCSER20 


I 

26D 

P 

200000000 

$ 

VRBL 

DCSER24 


I 

26D 

P 

240000000 

s 

VRBL 

DCSER44 


I 

26D 

P 

440000000 

$ 

VRBL 

DCSER60 


I 

26D 

P 

600000000 

s 

VRBL 

DCSER64 


I 

26D 

P 

640000000 

s 

VRBL 

DCSER74 


I 

26D 

P 

740000000 

% 

VRBL 

dcsindx 


I 

26D 

$ 



VRBL 

DCSRETURN 


S 

•NORMAL 

S 'ERR0R1 

' , ' ERR0R2 • $ 

VRBL 

FDSEN 


S 

•MODES 

•DATA* $ 


VRBL 

FDSPG 


S 

' INPRO0 

S 'NOTINPROG' S 

VRBL 

FDSRE 


s 

'TERM', 

• NOTERM i 

$ 

VRBL 

VDSER 


I 

26D 

$ 



VRBL 

VDSRC 


I 

26D 

S 



VRBL 

VDSSB 


B 


$ 



VRBL 

VDS01 


I 

26D 

$ 



TABLE 

DCSDATCT 


V 

1 20D 

% 



FIELD 

FI 

I 

26D 

S 

% 


LIKE- 

TABLE DCSSTCOD 

$ 




END-TABLE DCSDATCT 


$ 




TABLE 

DCSMODE 


V 

1 640 

$ 



FIELD 

F2 

I 

26D 

s 

S 
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END-TABLE OCSMODE $ 

TABLE DCSMSTAT V 1 20D S 

FIELD F3 S 'ACTIVE', 'INACTIVE' S 
END-TABLE DCSMSTAT $ 

TABLE VDSBL V 1 35D $ 

FIELD F 4 I 26D U S 

END-TABLE VDSBL $ 

DCSSTCOD DATA OOOOOOOOO $ 

DATA 100000000 $ 

DATA 110000000 $ 

DATA 120000000 S 

DATA 130000000 S 

DATA 140000000 $ 

DATA 200000000 $ 

DATA 220000000 $ 

DATA 050000000 S 

DATA 310000000 $ 

DATA 770000000 $ 

DATA 770000000 S 

DATA 770000000 $ 

DATA 450000000 $ 

DATA 170000000 $ 

DATA 330000000 $ 

DATA 600000000 $ 

DATA 340000000 S 

DATA 520000000 $ 

DATA 250000000 $ 

DCSDATCT DATA 0 S 

DATA 1 S 

DATA 35D $ 

DATA 2 $ 

DATA 2 $ 

DATA 3 $ 

DATA 0 $ 

DATA 0 S 

DATA 0 S 

DATA 35D S 

DATA 0 S 

DATA 0 S 

DATA 0 S 

DATA 0 $ 

DATA 0 S 

DATA 0 $ 

DATA 0 $ 

DATA 0 $ 

DATA 6 S 

DATA 0 $ 

DC8M0DE DATA 0 S 

DATA 0 $ 

DATA 0 $ 

DATA 0 $ 

DATA 0 $ 

DATA 8D $ 

DATA 0 $ 

DATA 0 S 
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DATA 

1 

$ 

DATA 

2 

$ 

DATA 

3 

s 

DATA 

4 

$ 

DATA 

5 

$ 

DATA 

0 

$ 

DATA 

0 

$ 

DATA 

14D 

$ 

DATA 

6 

A 

DATA 

0 

$ 

DATA 

7 

$ 

DATA 

0 

$ 

DATA 

0 

$ 

DATA 

19D 

$ 

DATA 

0 

$ 

DATA 

0 

$ 

DATA 

0 

$ 

DATA 

9D 

$ 

DATA 

0 

$ 

DATA 

15D 

$ 

DATA 

17D 

?! 

DATA 

OD 

* 

DATA 

OD 

s 

DATA 

OD 

A 

DATA 

OD 

$ 

DATA 

OD 

s 

DATA 

OD 

s 

DATA 

OD 

% 

DATA 

OD 

$ 

DATA 

1 3D 

$ 

DATA 

0 

$ 

DATA 

0 

s 

DATA 

0 

s 

DATA 

0 

$ 

DATA 

18D 

$ 

DATA 

1 OD 

$ 

DATA 

1 ID 

s 

DATA 

1 2D 

A 

DATA 

0 

$ 

DATA 

0 

s 

DATA 

16D 

s 

data 

0 

A 

DATA 

0 

s 

DATA 

0 

$ 

DATA 

0 

s 

DATA 

0 

s 

DATA 

0 

s 

DATA 

0 

s 

DATA 

0 

$ 

DATA 

0 

s 

DATA 

0 

s 

DATA 

0 

$ 

DATA 

0 

$ 

DATA 

0 

s 

DATA 

0 

$ 
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DATA 0 S 

COM EQUALS 0 S 

LEN EQUALS 6 $ 

MESU EQUALS 120 S 

MLEN EQUALS 14D S 

SEQ EQUALS 6 $ 

TERM EQUALS 200000000 S 
END-LOC-DD $ 

PROCEDURE MDSOO $ 


COMMENT RELEASE PREVIOUSLY ENABLED INTERRUPTS 
COMMENT REAU DISCRETE INPUT REG INTO TEMP 
COMMENT READ DIGITAL COMMAND SYSTEM INPUT INTO VDS01 
IF BIT (22D) (TEMP) EQ 0 THEN GOTO DS60 S 

COMMENT 

COMMENT PROCESS DCS MODE COMMAND 
COMMENT 

DS09 . VARY I FROM COM THRU LEN S 

IF BITCIHVDSOI) EQ B I T ( I +7 ) C VDSO 1) 

THEN SET VDSER TO DCSER10 
THEN GOTO DS220 $ 

END DS09 S 

IF BIT (SEQ) (VD801) EQ 1 

THEN SET VDSER TO DCSER24 
THEN GOTO DS220 $ 

IF blTCCOM.LEN) (VDS01) EQ TERM THEN GOTO DS25 S 
IF FDSEN EQ 'DATA' 

THEN SET VDSER TO DCSER20 
THEN GOTO DS220 $ 

IF OFDTL EQ 'INPROG' OR FDSPG EQ 'INPKOO' 

THEN SET VDSER TO DCSER64 
THEN GOTO DS220 $ 

DS20. SET FDSPG TO 'INPROG' $ 

DS25. SET DCSINDX TO DCSMODE ( B I T ( COM , LEN )( VDSO II ) S 

IF DCSMSTAT(DCSINDX) EQ 'INACTIVE' 

THEN SET FDSPG TO • NOT I NPROG 1 
THEN SET VDSER TO DCSER74 
THEN GOTO DS220 $ 

COMMENT TELEMETER STATUS CODE TWICE $ 

UTR24 $ "DELAY FOR TELEMETRY AS REQUIRED" 

COMMENT TELEMETER DCSSTCOD ( DCSINDX ) S 

UTR24 $ "DELAY FOR TELEMETRY AS REQUIRED" 

COMMENT TELEMETER DCSSTCODIDCSINDXD $ 

COMMENT RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE 
DS200 $ ' • ISSUE CRP ' • 

SET DCSD ATACOUNT TO 0 S 
SET VDSSB TO 0 $ 

GOTO OS 1 00 $ 

COMMENT 

COMMENT PROCESS DATA WORD 
COMMENT 

DS60. IF FDSEN EQ 'MODE' 

THEN SET VDSER TO DCSER04 
THEN GOTO DS220 S 

DSSl. VARY I FROM COM THRU LEN $ 

IF BIT ( I ) ( VDSO 1 ) EQ B I T ( I +7 )( VDSO 1 ) 
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DS110. 

comment 

comment 

COMMENT 


DSIOO. 


DS105. 

COMMENT 

COMMENT 

DS220. 


DS235. 

COMMENT 

COMMENT 

COMMENT 

DS530. 


END-PROC 

PROCEDURE 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 


THEN SET VDSER TO DCSER44 
THEN GOTO DS220 $ 

END DS61 S 

IF BITCSEQ) (VDSOl) NOT VDSSB 

THEN SET VDSER TO DCSER60 
THEN GOTO DS220 S 
"TELEMETER DATA WORD TWICE" 

UTR24 S "DELAY FOR TELEMETRY AS REQUIRED" 

TELEMETER VDSOl $ 

UTR24 $ "DELAY FOR TELEMETRY AS REQUIRED" 

TELEMETER VDSOl S 

RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE $ 
DS200 S • 'ISSUE CRP ' • 

SET VDSBL(DCSDATACOUNT) TO BIT (COM , LEN ) ( VDSO 1 ) S 
SET VDSSB TO COMP VDSSB $ 

SET DC8D AT ACOUNT TO DCSD AT ACOUNT ♦ 1 * 

IF DCSDATACOUNT LT DCSDATCT (DCSINDX ) THEN RETURN S 
SET DCSRETURN TO 'NORMAL' $ 

DCS USING DCSINDX INVALID DS105 S 
GOTO DCSRET DCSRETURN S 
SET FDSPG TO 'NOTINPROG' $ 

SET VDSER TO DCSER14 S 

S 

PROCESS DCS ERROR CONDITION S 

S 

SET VDSRC TO VD8RC ♦ 1 * 

SET FDSRE TO 'TERM' $ 

IF VDSRC LT DCSERLIM THEN SET VDSRC TO 'NOTERM* $ 

SET VDSER TO VDSER ♦ VDSRC S 

SET BIT(MESG,MLEN) (VDSER) TO BIT (COM, MLEN) (VDSO 1 ) S 
"TELEMETER ERROR CODE TWICE" 

UTR24 S "DELAY' FOR TELEMETRY AS REQUIRED" 

TELEMETER VDSER S 

UTR24 $ "DELAY FOR TELEMETRY AS REQUIRED" 

TELEMETER VDSER S 

RELEASE INTERRUPTS DISABLED BY TELEM DELAY ROUTINE S 
IF FDSRE EQ 'NOTERM' THEN RETURN S "MDSOO" 

SET VDSRC TO 0 $ 

SET FDSEN TO 'MODE' $ 

SET FDSPG TO 'NOTINPROG' $ 

RETURN S • ' MDSOO.' ' 

MDSOO S 

DS200 S "ISSUE DCS COMMAND RESET PULSE" 

INHIBIT ALL INTERRUPTS EXCEPT TLC 
ISSUE COMMAND RESET PULSE 
DELAY 4.13 MS 

RESET THE COMMAND RESET PULSE 
RELEASE PREVIOUSLY ENABLED INTERRUPTS 
RETURN $ • ' DS200 ' ' 
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ENP-PROC DS20U $ 
END-SYS-PROC MDSOO $ 
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MMLOO SYS-PROC "MINOR LOOP" S 
LOC-DO S 

CEXTREF) PROCEDURE MDGOO OUTPUT J EXIT ERR $ 
SWITCH MLSW1 ML201, ML101, ML001A $ 

SWITCH MLSW2 ML4352,ML4351,ML4350 S 

SWITCH MLSW3 ML245, ML145, ML045 S 

SWITCH MLSW4 ML260, ML160, ML060 S 


VRBL, . 

FBUGS 

I 

26D 

S 

s 


VRBL, 

KCPBG 

A 

26D 

S 

14D 

P 2016D $ 

VRBL, 

VCG 1 0 

I 

1 2D 

s 

% 


VRBL, 

VCG 1 1 

I 

12D 

s 

$ 


VRBL, 

VIRE 

I 

26D 

s 

$ 


VRBL, 

VMEMR 

I 

26D 

u 

$ 


VRBL, 

VOCK 

A 

26D 

s 

25D 

$ 

TABLE 

FBUG 

V 

NONE 

3 

$ 


FIELD FI I 26D S $ 

LIKE-TABLE VGR 3 $ 

LIKE-TABLE VPGR 3 $ 

END-TABLE FBUG S 

TABLE VCOD V NONE 3 $ 

FIELD F 2 I 12D S $ 

LIKE-TABLE VOLD 3 $ 

LIKE-TABLE VCGO 3 S 

LIKE-TABLE VCG1 . 3 $ 

LIKE-TABLE VMLO 3 $ 

LIKE-TABLE VML1 3 S 

END-TABLE VCOD S 

TAHLE VCG V NONE 3 $ 

FIELD F3 A 26D 3 25D 3 
LIKE-TABLE VDEL 3 S 

LIKE-TABLE VBUB 3 $ 

LIKE-TABLE VML2 3 $ 

END-TABLE VCG S 

TABLE VSF V NONE 3 $ 

FIELD F4 A 260 S 35D S 
END-TABLE VSF S 

TABLE VFIO V NONE 3 S 

FIELD F5 S 'NORMAL', 'BACKUP*, 
END-TABLE VFIO S 
TABLE VMLET V DENSE 1 $ 

FIELD OLD I 1 2D S 0 25D S 

FIELD TAG I 3D S 0 13D S 

FIELD COD I 1 ID S 0 10D $ 

END-TABLE VMLET S 
TABLE VCMND A 1 3,3 $ 

FIELD F 6 I 26D S $ 

END-TABLE VMLET S 
ERTAG EQUALS 7 $ 

PI EQUALS 400000000 S 

END-LOC-DD S 

PROCEDURE MMLOO $ "FLIGHT SIMULATION MINOR LOOP* 
IF DVLRC ER 0 

THEN SET DVCC TO DVCC - DVDC 
THEN GOTO MLO S 

SET DVLRC TO DVLRC - 1 $ 


•DUMMY' S 
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MLO. 

END-PROC 

CEXTDEF) 


MLOOl. 

ML001A. 


ML101 . 


ML201 . 


ML004. 


ML432. 

COMMENT 

comment 

comment 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

ML434. 

ML4350. 


MML20 S ''EXECUTE NORMAL MINOR LOOP'' 

RETURN S ' ' MMLOO ' ' 

MMLOO $ 

PROCEDURE MML20 $ ''NORMAL MINOR LOOP'' 

SET DVCC TO DVCC ♦ DVOC $ 

IF FfiUGS NOT 0 THEN GOTO ML500 $ 

VARY I FROM 2 THRU 0 BY -1 S 
GOTO MLSW1 I $ 

IF VFI0C2) EQ 'NORMAL' 

THEN ''READ Z GIMBAL INTO VGR(2)'' 

THEN GOTO ML004 S 
IF VFIO (2) EQ 'BACKUP' 

THEN' 'READ Z BACKUP GIMBAL INTO V0R(2)" 

THEN GOTO ML004 $ 

SET VGRC2) TO VPGR (2) $ 

GOTO ML004 $ 

'•READ ERROR MONITOR REGISTER INTO VMEMR"$ 

SET DVLDB TO DVLDB - B I T C 1 7D ) (VMEMR) S 
IF VFIOC1) EQ 'NORMAL' 

THEN ''READ Y GIMBAL INTO VGRC1)'' 

THEN GOTO ML004 S 
IF VFIOC1) EQ 'BACKUP' 

THEN ''READ Y BACKUP GIMBAL INTO VGR(l)'' 
THEN GOTO ML004 $ 

SET VGRC1D TO VPGR (ID $ 

GOTO ML004 S 

VARY J FROM 0 THRU 250 $ 

IF VHEMRCO.J) EQ 1 THEN SET DVEMRCO.J) TO IS 
END ML201 % 

IF VFIO(O) EQ 'NORMAL' 

THEN "READ X GIMBAL INTO VGR(O)" 

THEN GOTO ML004 $ 

IF VFIOCO) EQ 'BACKUP' 

THEN "READ X BACKUP GIMBAL INTO VGRCO)" 
THEN GOTO ML004 S 
SET VGRCO) TO VPGR(O) $ 

IF BIT CO) (VGR(I) ) EQ 0 .THEN GOTO ML020 S' 

IF DVDGS LI 0 THEN GOTO ML432 S 

ID DVDGS EQ 0 THEN GOTO ML020 $ 

GOTO MLS37 * 

MDGOO OUTPUT J EXIT ML434 .V'PROCESS 

DISAGREEMENT BIT CNOT CODED)" 

S 

DISAGREEMENT BIT PROCESSING WILL TAKE A NORMALS 
RETURN IF THE DISAGREEMENT BIT IS FOUND TO BE $ 
INVALID. OTHERWISE, IT WILL TAKE THE ERROR 
EXIT TO ML434 AND SET J»0 IF THE GIMBAL IS 
'VALID OR J«1 IF THE GIMBAL IS NOT VALID. 

GOTO ML020 S 
GOTO MLSW2 I S 
IF VFIO C 2 ) EQ 'NORMAL' 

THEN "READ Z G I MB AL , REST ART Y COD COUNTER" 
THEN GOTO ML450 $ 

"READ Z BACKUP GIMBAL, RESTART Y COD COUNTER'S 
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ML4351. 

ML4352. 

ML450. 
ML020 . 


ML040. 

ML045. 

ML 1 45 . 

ML245. 

ML630, 

ML631. 

ML632. 


ML633. 


GOTO ML450 $ 

IF VFIOC1) EQ 'NORMAL' 

THEN "READ Y GIMBAL, RESTART X COD COUNTER" 
THEN GOTO ML450 $ 

"READ Y BACKUP GIMBAL, RESTART X COO COUNTEH"$ 
GOTO ML450 S 
IF VFIOCO) EQ 'NORMAL' 

THEN "READ X GIMBAL, RESTART 2 COD COUNTER" 
THEN GOTO ML450 S 

"READ X BACKUP GIMBAL, RESTART Z COD COUNTER'S 
IF J EQ 1 THEN GOTO ML637 $ 

SET VCODCI) TO BIT(1, 11D) ( VGR ( I ) J S 
IF VCODCI) EQ 0 AND VOLD(I) EQ 0 AND ABS ( VDEL ( I ) ) 
GTEQ VOCK THEN GOTO ML631 $ 

IF ABSCVCODCI) - VOLD(I)) LT VMLOCI) 

THEN GOTO ML040 $ 

IF ABS ( VCOD Cl) - VOLDCI)) + VMLOCI) LT VML1CI) 
THEN GOTO ML630 S 
IF VCOD ( I ) LT VOLDCI) 

THEN SET VCGCI) TO VCG(I) ♦ VML2CI) 

THEN GOTO ML040 $ 

SET VCGCI) TO VCGCI) - VML2CI) $ 

SET DVTHCI) TO VSF C I ) * VCOD C I ) + VCGCI) S 
SET VOLDCI) TO VCODCI) $ 

SET VDEL Cl) TO DVTHCI) - DVCCCI) $ 

SET DFDBF TO 'GOOD' $ 

GOTO MLSW3 I $ 

SET VCMND C 2, 0 ) TO DVA5*VDEL C2) - DVA4*VDELC1) $ 
GOTO ML730 S 

SET VCMND C 1 , 0 ) TO D V A 1 *VDEL C 1 ) + DVA2*VDEL C2) $ 
GOTO ML730 $ 

SET VCMND C 0 , 0 ) TO DV AS* C VDEL C 0 ) + DV A3*VDEL C 1 ) ) $ 
GOTO ML730 S 

SET VMLET ( 0 , T AG ) TO I 4- 3 $ 

GOTO ML532 S 

SET VMLET CO, TAG) TO I S 

SET VMLET CO, COD ) TO VCODCI) $ 

SET VMLET CO, OLD) TO VOLDCI) S 
IF COMP DVMC6C0.D04) 

THEN UTR30 "DELAY FOR TELEMETRY AS REQUIRED" 
THEN "TELEMETER ERROR MESSAGE" $ 

IF DFDBF EQ 'FAILED' THEN GOTO ML635 $ 

SET DVRECI) TO DVPECI) ♦ 1 $ 

IF DVRECI) LT 0 THEN GOTO ML637 S 

IF DVRECI) GT 0 THEN GOTO M|_t>36 S 

SET VMLET CO, TAG) TO EPTAG S 
SET VMLET CO, COD ) TO VCODCI) $ 

SET VMLET CO, OLD) TO VOLDCI) S 
SET VFIOCI) TO 'BACKUP' $ 

IF VCGCI) GTEQ PI 

THEN SET VCGCI) TO PI - VBUB(I) 

THEN GOTO MLS33 $ 

SET VCGCI) TO - VHUBCI) S 
SET VML2CI) TO PI $ 

IF DVTHCI) GTEQ PI 
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ML634. 


ML63S, 

COMMENT 

ML636. 

ML637. 

ML730. 

ML760. 

ML060. 

ML 1 60 , 
ML260. 

ML900. 

ML500. 


THEN SET VOLDCI) TO (DVTHCI) - PI)*KCPBG 
THEN GOTO ML634 $ 

SET VOLDCI) TO DVTH ( I ) *KCPBG $ 

SET VSF(I) TO 1/KCPBG S 
IF I « 2 

THEN ''SET ICR TO SELECT BACKUP GIMBAL" 

THEN SET DVICRCO.BG) TO 1 S 
SET FBUGS, FBUG(I) TO 2 S 
SET VMLO(I) TO VCG10 $ 

SET VMLl(I) TO VCGU $ 

IF COMP D VMC6 ( 0 , D04 ) 

THEN UTR30 ''DELAY FOR TELEMETRY AS REQUIRED" 

THEN "TELEMETER ERROR MESSAGE" $ 

GOTO ML637 S 

SET DVHDB TO DVHDB - 1 $ 

SET DVHDA TO DVHDA ♦ 1 $ 

SET DFDBF TO 'GOOD' S 

IF DVHDA LT 0 THEN GOTO ML636 $ 

SET ICR TO SWITCH GIMB AL ORDER 3> 

SET DVICRCO.SWG) TO 1 S 
SET DVMC4C0.AMF) TO 1 $ 

SET DVDGS TO 0 S 

IF DVRECI) GTEG VIRE AND COMP DVMC6CO.D04) 

THEN UDOOO INPUT MSKGRF $"SET GUIDANCE 

REFERENCE FAILURE DISCCNOT CODED)" 
SET DFSMC TO 'DISABLE' $ 

GOTO ML760 $ 

IF ARSCVCMNOCI.O) ) GR DVM06 

THEN SET VCMND (1,0) TO DVM06 $ 

IF ABS (VCMND (1,0) - VCMNDCI.l)) GP DVM05 

THEN SET VCMNDCI.O) TO VCMNDCI.l) + DYM05 $ 
SET VCMNDCI.l) TO VCMNDCI.O) $ 

IF VCMND (I#Q) LT 0 

THEN SET VCMND (1,2), TO MSKABSLAD - VCMNDCI.O) 
THEN GOTO ML760 S 
SET VCMND (1,2) TO VCMNDCI.O) S 
GOTO MLSW4 I $ 

"ISSUE YAW COMMAND FROM VCMND(2,2)"$ 

IF DVLDB LT 0 THEN "SET ICR TO SELECT CONV A " % 
SET DVTT1 TO DVTT1 - DVRTC S 

IF DVTTI LT 0 THEN SET DVTT1 TO DVTT1 + DKRTCOVFS 
SET DVMLT TO DVTMM + DVMLD + DVTTI $ 

GOTO ML900 S 

"ISSUE PITCH COMMAND FROM VCMND(1,2)"$ 

GOTO ML900 $ 

"START SPECIAL DOM BACKUP G I MB AL ' • $ 

"ISSUE YAW COMMAND FROM VCMND(2,2)"$ 

'"ISSUE ROLL COMMAND FROM VCMND (0,2) • • S 
END MLOO S 
RETURN $ • 1 MML20 • • 

VARY I FROM 0 THRU 2 S 

IF FBUG(I) EQ 0 THEN GOTO ML530 $ 

IF FBUGCI) EQ 1 

THEN SET FBUGCI) TO 0 
THEN SET VMLOCI) TO VCGO(I) 
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THEN SET VMLl(I) TO VC01CI) 
THEN GOTO ML530 S 
SET FBUG(I) TO 1 S 
ML530, END ML500 S 

SET FBUGS TO FBUGCO) «■ FBUG(l) «■ FBUG12) $ 
GOTO MLOOl S 
END-PROC MML20 $ 

END-SYS-PROC HMLOO $ 
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MSSOO SYS-RROC ''SWITCH SELECTOR PROCESSOR* '$ 
400 - 00 $ 

(EXTREFD PROCEDURE EGP08 $ 

SWITCH SS ( DGSSM ) $ 


SSOO ' # 

SSOO 

$ 

' 'SS 

ALTERNATE SEQUENCE CHECK'' 

SS05 • t 

MSS05 

S 

' ' SS 

NORMAL CHECK ' ' 

SSIO* , 

MSS 1 0 

$ 

• 'SS 

TIME BASE SET INITIALIZE'' 

SS20 ' , 

MSS20 

$ 

' ' SS 

FORCED RESET' ' 

SS30 ' , 

MSS30 

$ 

' 'SS 

HUNO STAGE TEST ' ' 

SS40 ' , 

MSS40 

$ 

' ' SS 

STAGE/ADORESS ISSUANCE'' 

SS50 ' , 

MSS50 

$ 

' ' SS 

VERIFY ADDRESS' ' 

S S 5 6 1 9 

MSS55 

$ 

' ' SS 

READ TIME CHECK'' 

SS60 ' , 

MSS60 

$ 

' 'SS 

READ ISSUANCE ' ' 

SS7 0 i , 

MSS70 

$ 

' ' SS 

RESET' ' 

SSSO t , 

MSS80 

% 

' 'SS 

COMPLEMENT STAGE/ADORESS ' ' 


F. N p - 

SWITCH SS 

■ $ 




VRBL 

BIAS 

A 

260 S -2 $ 



VRBL 

ID 

I 

26D U $ 



VRPL 

TIME 

A 

26D S -2 $ 



VRBL 

FASE 

S 

* NORMAL 1 , 

•ALTERNATE' S 


VRBL 

FBRNI 

S 

'FIRST* , 

•SECOND' S 


VRBL 

FCLS4 

S 

' NOTIMPROR 

', 'INPROG' $ 


VRBL 

FFBCH 

S 

' GHANA * , 

' C H A N B ' $ 


VRBL 

FHST 

s 

'NOTEST' , 

•TEST' S 


VRBL 

FSSIO 

B 

$ 



VRBL 

FSSAC 

S 

' INACTIVE ' 

.'ACTIVE' S 


VRBL 

FTADV 

s 

'NORMAL ' , 

' C L A S S 4 ' $ 


VRBL 

FT60P 

s 

* P ASS 1 • , 

' P ASS2 ' S 


VRBL 

KCSSK 


260 A -2 

P 812.698400 

$ 

VRBL 

KSSB1 


26D A -2 

P 70.1428560 

$ 

VRBL 

KSSB2 


26D A -2 

P 103.587300 

$ 

VRBL 

KSSB3 


260 A -2 

P 66.206348D 

$ 

VRRL 

KSSB4 


260 A -2 

P 35 . 8263960 

$ 

VRBL 

KSSBB 


260 A -2 

P 102. 65079D 

$ 

VRBL 

KSSB6 


260 A -2 

P 50.826396D 

$ 

VRBL 

KSSB7 


260 A -2 

P 87.4803160 

$ 

VRBL 

KSSBB 


260 A -2 

P. 43.8263960 

$ 

VRBL 

KSSRB 


260 A -2 

P 201.174600 

$ 

VRBL 

KSS500MS 

260 A -2 

P 2031.74600 

$ 

VRBL 

K5SS00SEC 

260 A -2 

P 2031746.00 

$ 

VRBL 

(SST1PTR 

• 





SST2PTR, 

vhstw,. 

VPSTG, 

VSCCA, 

VSC10, 

vscii, 

‘ VSC30, 

VSC31, 

VSN A # 

V SNA 1 , 

VSSC A B 
VSSFB, 

V STG ) I 260 U $ 

VRBL CVATRR, 
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VATR4, 

VGBIA, 

VSC12, 

VSC32, 

VSSRT , 

VSSTM, 

VS8W, 


VST0O) A 

26D 

s - 

•2 

$ 


TABLE VASPI V 1 

1 S 





FIELD 

S4C0 

B 

0 

25D 

$ 

FIELD 

SPEC 

B 

0 

24D 

$ 

FIELD 

CL3 

B 

0 

23D 

$ 

FIELD 

CL 1 

B 

0 

22D 

$ 

FIELD 

T6C 

R 

0 

190 

$ 

END-TABLE VASPI 

S 





TAbLE SSTTBPTR 

V 1 

8D 

$ 




FIELD FI I 26D U S 
END-TABLE SSTTBPTR S 



SSTTBPTR DATA 

CORAD ( SSTTB 1 ) S 




DATA 

CORAD ( SSTTR2 ) $ 




DATA 

CORAD ( SSTTR3) $ 




DATA 

CORAD ( SSTTB4 ) s 




DATA 

CORAD ( SSTTB5) $ 




DATA . 

0 $ 




DATA 

CORAD (SSTTB7) $ 




DATA 

CORAD (SSTTB8) $ 



COMMENT 




$ 

COMMENT 

SWITCH SELECTOR 

TABLE 


S 

comment 




$ 

COMMENT 

THE SWITCH SELECTOR TABLE IS MADE UP OF A NUMBER 

0F$ 

COMMENT 

SMALLER TABLES, 

ONE FOR EACH TIME BASE AND FOR EACH* 

comment 

OF THE ALTERNATE 

SS SEQUENCES. 

HOWEVER, ONLY THE $ 

COMMENT 

TIME BASE 1 TABLE HAS REEN CODED 

• 

$ 

COMMENT 




$ 

COMMENT 

EACH TABLE ENTRY 

REPRESENTS A SINGLE SS COMMAND 

AND$ 

COMMENT 

CONSISTS OF TWO 

WORDS, 


S 

COMMENT 

1. time OF 

ISSUANCE. 


$ 

COMMENT 

2. SS STAGE 

AND ADDRESS, 


$ 

COMMENT 

TABLE SSTABLE V 

2 ZERO S 


S 


FIELD 

TIME A 26D S 

1 OD 0 $ 



FIELD 

STAGADD I 15D U 

1 25D $ 



END-TABLE SSTABLE $ 




TABLE SSTTB1 V 

2 28D $ 




FIELD 

TIME A 26D S 1 OD OS 



FIELD 

STAGADD I 15D U 

1 25D S 



END-TABLE SSTTB1 

S 




SSTTB1 DATA 

5.0 $ DATA 

0 S 



DATA 

6.0 $ DATA 

10650 $ 



DATA 

14. OD S DATA 

02610 S 



DATA 

19. 8D $ DATA 

40644 S 



DATA 

20. OD $ DATA 

40544 $ 



DATA 

20.20 $ DATA 

40634 $ 



DATA 24. OD S DATA 02574 S 

DATA 27. OD S DATA 40210 S 
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DATA 

29. OD 

$ 

DATA 

02774 

$ 

DATA 

30. OD 

$ 

DATA 

40304 

$ 

DATA 

32. OD 

$ 

DATA 

40110 

s 

DATA 

49. 5D 

$ 

DATA 

0 2 0 1 U 

$ 

DATA 

75. OD 

$ 

DATA 

oonou 

s 

DATA 

90. OD 

$ 

DATA 

40210 

s 

DATA 

95. OD 

s 

DATA 

40110 

$ 

DATA 

95. 3D 

$ 

DATA 

02264 

$ 

DATA 

105. OD 

$ 

DATA 

40764 

$ 

DATA 

115. ID 

$ 

DATA 

02574 

$ 

DATA 

119. 8D 

$ 

DATA 

40674 

$ 

DATA 

120. OD 

$ 

DATA 

40574 

$ 

DATA 

120, ID 

$ 

DATA 

02774 

$ 

DATA 

130. OD 

$ 

DATA 

40404 

$ 

DATA 

132. 4D 

$ 

DATA 

02164 

$ 

DATA 

133. 6D 

$ 

DATA 

40 07 U 

$ 

DATA 

133. BD 

$ 

DATA 

40170 

$ 

DATA 

134, 4D 

$ 

DATA 

02174 

s 

DATA 

134. 6D 

$ 

DATA 

02374 

$ 

DATA 77777.7774 

$ 

DATA 

00000 

$ 


ENO-LOC-DD S 

PROCEDURE HSSOQ * 

GOTO SS DGSSM $ 

SSOO. "INHIBIT ALL INTERRUPTS EXCEPT TLC ' 1 $ 

SET FASE TO 'ALTERNATE* $ 

IF COMP DVASW (0.S4CO) THEN GOTO SS001 $ 

SET BITC0,7HDVASW(O)),BIT(9D,17D)(OVASW(0)} TO 0$ 
IF VASPI CO.S4CO) THEN GOTO SS0060 $ 

EGP08 S "RESCHEDULE TIMER 1 INOT CODED)" 

SET VASPI (0) TO MSKSSS4C0 $ 

SET SST1PTR TO CORAO ( SSTSI VB ) $ 

GOTO SS 1 050 $ 

S?001. IF DVARWCPfSPEC) 

THEN SET BIT(0,7) (DVASW(O) ) , 

BITC9D, 17DHDVASW CO) ) TO 0 
THEN EGP08 "RESCHEDULE TIMER 1 (NOT CODED)" 

THEN SET VASPI (0) TO MSKSSSPEC 
THEN SET SST1PTR TO COR AD ( SSTSI V A ) 

THEN GOTO SS 1 050 $ 

IF L> V AS w ( 0 , TB6C) 

THEN SET DVASW (0, TB6C) TO 0 

THEN SET VASPI (0, T6C) TO 1 

THEN SET DVMC6(0, TB6B) TO 1 

THEN SET SST1PTR TO CORAD (SSTTBfiC) 

THEN SSTUPD OUTPUT VATRR "UPDATE SS TJME" 

THEM GOTO SS 1 050 $ 

IF COMP (DVASW (0,TB6A) OR D V AS W ( 0 , TB6H ) OR DV ASW ( 0 , S4C 1 ) ) 
THEN GOTO SS002 S 

SET VSC10 TO SST1PTR $ 

SET VSC11 TO VASPI(O) $ 

SET VSC12 TO VATRR $ 

SET VASPI (0) TO MSKSSCL1 S 

SSTUPD OUTPUT VATRR $ "UPDATE SS TIME" 

SET FT AD V TO 'NORMAL' S 
IF DVASW (0* TB6A) 
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SS002. 

MSS05. 

SS0000. 

SS0010. 


SS0015. 

COMMENT 


SS0170. 


SSOOS, 


THEN SET DVASWCO, TB6A) TO 0 
THEN SET DVMC6C0,TB6A) TO 1 
THEN SET SST1PTR TO CORAD CSSTTB6A) 

THEN GOTO SS1050 $ 

IF DVASWCO, S4C1) 

THEN SET DVASWCO, 84C1) TO 0 
THEN SET SST1PTR TO CORAD (SST34C1) 

THEN GOTO SS1050 S 
SET DVASWCO, TB6B ) TO 0 $ 

SET DVMC6C0,TB6B) TO 1 $ 

SET SST1PTR TO CORAD CSSTTB6B) S 
GOTO SS1050 S 

IF FSSAC EO 'ACTIVE' THEN GOTO SS0060 S 

GOTO S30000 S 

SET FSSAC TO 'INACTIVE' $ 

IF SSTABLEC0,0)SST1PTR EO MSKSSNSEND THEN GOTO SS0015* 
SSTUPD OUTPUT VSTGO $ ''UPDATE S3 TIME" 

SET VSTGO TO VSSRT - VSTGO S 

IF VSTGO LT KSS500MS THEN GOTO MSS30 S 

IF DFTUP EQ 'YES' 

THEN SET DVTGB TO DVTGB * VGBI A 
THEN SET VGBIA TO 0 . 

THEN SET DFTUP TO 'NO' 

THEN GOTO SS0010 S 

IF DVASWCO) NOT 0 THEN GOTO SS0170 $ 

SET VSSTM TO VSTGO ♦ OVTRB - DVTGB - KCSSK S 
SET DVSST TO VSSTM ♦ DVTMR $ 

SFT DGSSM TO 'SS30* $ 

IF COMP DFIL3 THEN EGPOR $ "RESCHED TlCUNCODED)" 
GOTO SS0060 S 

IF DVASW(O) NOT 0 THEN GOTO SS0170 S 
READ REAL TIME CLOCK INTO TEMP $ 

SET TEMP TO TEMP - DVRTC $ 

IF TEMP LT 0 THEN SET TEMP TO TEMP + DKRTCOVF $ 

SET DVSST TO DVTMM ♦ KSS500SEC + TEMP.,0 $ 

SET DGSSM TO 'SS05' S 

IF COMP DFIL3 THEN EGP08 S "RESCHED T1CNOT CODED)" 
GOTO SS0060 S 

IF DVASWCO, GNSS ) OR D V ASW ( 0 , SBLO ) OR DVASW C0,3BHI) 

OR DVASWCO, SBOM) OR DVASWCO, ECSV) OR DVASWCO, ECS1) 

OR DVASWCO, T3A) THEN GOTO SS004 S 
IF DVASWCO, ACOU) 

THEN SET DVASWCO, ACQU) TO 0 
THEN SET SST2PTR TO CORAD CSSTGAIN) 

THEN SSTUPD OUTPUT VATR4 "UPDATE S3 TIME" 
THEN GOTO SS005 $ 

IF DVASWCO, TB6D) 

THEN SET DVASWCO, TB6D) TO 0 
THEN SET 3ST2PTR TO CORAD CSSTTB6D) 

THEN SSTUPD OUTPUT VATR4 "UPDATE S3 TIME" 
THEN GOTO S8005 S 
SET DVASWCO, LI) TO 0 $ 

SET VATR4 TO 0 S 

SET FCLS4 TO 'INPROG' $ SET FHST TO 'TEST' S 
SET FTADV TO ' CLASS4 ' S 
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SS004. 


SS0230. 

SS0060. 

MSS10. 


SS1050. 

MSS20. 


SS210 S ''SET UP CLASS 4 ALTERNATE SEQUENCE'' 
GOTO SSOOOO S 

JF VASPICO) NOT 0 THEN GOTO SS0060 $ 

SET VSC30 TO SST1PTR S 
SET VSC31 TO VASPICO) % 

SET VSC32 TO VATRR S 

SET VASPICO) TO MSKSSCL3 $ 

SSTUPD OUTPUT VATRR $ ''UPDATE SS TIME'' 

SET FTADV TO 'NOPMAL* $ SET FHST TO 'TEST* $ 

IF DVASWCO, GNSS) 

THEN SET DVASWCO, GNSS) TO 0 
THEN SET SST1PTR TO COR AD C SSTGSS ) 

THEN GOTO SS0230 $ 

IF DVASWCO, SBLO ) 

THEN SET DVASWCO, SBLO) TO 0 

THEN SET SST1PTR TO COR AD C SSTSBLO ) 

THEN GOTO SS0230 S 
IF DVASWCO, SRHI) 

THEN SET DVASWCO, SBHI) TO 0 

THEN SET SST1PTR TO COR AD ( SSTSBHI ) 

THEN GOTO SS0230 $ 

IF DVASWCO, SBOH) 

THEN SET DVASWCO, SBOM) TO 0 

THEN SET SST1PTR TO CORAD CSSTSBOM) 

THEN GOTO SS0230 $ 

IF DVASWCO, ECSV) 

THEN SET SST1PTR TO COKADCSSTECSV) 

THEN GOTO SS0230 S 
IF DVASWCO, ECS1) 

THEN SET SST1PTR TO COR AD C SSTECS 1 ) 

THEN GOTO SS0230 $ 

SET DVASWCO, T3A) TO 0 $ 

SET SST1PTR TO CORAD CSSTTB3A ) $ 

SS210 $ ''SET UP SS TABLE'' 

GOTO SSOOOO S 

IF FASE EQ 'ALTERNATE' 

THEN SET FASE TO 'NORMAL'. 

THEN ''RELEASE PREVIOUSLY ENABLED INTERRUPTS " $ 
RETURN $"COMMON SS EXIT'' 

SET VASPICO) TO 0 $ 

SET VATRR TO 0 $ 

SET FCLS4 TO 'NOTINPROG' $ 

SET BIT CO, 7) CDVASW CO) ) , B IT C 9D , 1 7D ) C 0 V ASW C 0 ) ) TO 0 S 
EGP08 * "RESCHEDULE TIMER 1 CNOT CODED)" 

SET FTADV TO 'NORMAL' S 
SET SST1PTR TO SSTTBPTR CDTBID - 1) $ 

SS210 S ' ' SET UP SS TABLE ' ' 

IF FSSAC EQ 'ACTIVE' THEN GOTO MSS20 $ 

SET VSSW TO KSSB1 $ 

SET FHST TO 'TEST' $ 

GOTO SSOOOO $ 

IF FSSIO THEN "ISSUE FORCED RESET" S 

SET FHST TO 'NOTEST* $ 

SSTUPO INPUT KSSB8, 'SS05' * "SCHEDULE SS CHECK" 
SET VSSW TO KSSB5 $ 
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MSS30 , 


COMMENT 

MSS40. 

8S4000. 

COMMENT 

COMMENT 

MSS50. 

SS006, 


SS007. 

MSS55. 


SS5540. 


GOTO SS0060 S 

SET FSSAC TO 'ACTIVE* $ 

SET BIT (2) (VSNA1) TO BIT(O) VSNA $ 

SET BIT(4,3) (VSNA1) TO BIT(2,3) VSNA S 
SET BIT (8, 7) (VSNA 1 ) TO BIT(6,7) VSNA $ 

SET VSNA TO VSNA 1 S 
IF VSNA EG 0 

THEN SET FSSAC TO 'INACTIVE 
THEN SS201 $ ''ADVANCE SS TABLE'' 

THEN GOTO SSOOOO S 

SET BIT (2) (VSTG) TO BIT(2)(VSNA) AND BIT (2) (VPSTG) $ 

SET BIT (4) ( VSTG) TO BIT(4)(VSNA) AND BIT (4) (VPSTG) $ 

SET BIT (5) (VSTG) TO BIT (5) (VSNA) AND BIT (5) (VPSTG) $ 

SET SIT (65 (VSTG) TO BIT(6)(VSNA) AND BIT C6) (VPSTG) $ 

SET FSSIO TO VSTG NOT 0 $ 

IF FHST EG 'NOTEST' THEN GOTO SS4000 $ 

IF DFLT EG 'REP* THEN GOTO SS4000S 
READ SS FEEDBACK REGISTER INTO TEMP $ 

IF BIT(7,8) (TEMP) EG) 0 THEN GOTO SS40U0 S 
IF FSSIO THEN "ISSUE SS RESET ' ' S 

SSTUPR INPUT KSSB4, 'SS40' $ "SCHEDULE ST AGE/ADDRESS " 
SET VSSW TO KSSB5 $ 

GOTO SS0060 $ 

"DELAY BEFORE I.SSUING STAGE AND ADDRESS ' ' $ 

IF FSSIO THEN "ISSUE STAGE AND ADDRESS FROM V8NA"$ 
SSTUPG INPUT VSSW, 'SS50' $ "SCHEDULE ADDRESS VEHIF" 
DELAY FOR DOM TELEMETRY $ 

OUTPUT SS AND DO REGISTERS VIA DOM TELEMETRY S 
GOTO SS0060 $ 

SET VSCCA TO VSNA $ 

SET VSSCA TO 0 S 

VARY I FROM 7 THRU 14D S 

SET BIT(I) (VSCCA) , BIT ( I ) (VSSCA ) TO 
COMP(BITU) (VSNA) ) $ 

END SS006 S' 

IF VSTG NOT 0 THEN "READ SS FEEDBACK REG INTO TEMP" 
THEN SET VSSFB TO 0 

THEN SET BIT (7, 8D) (VSSFB) TO BI T ( 7, 8D) (TEMP ) 

GOTO SS007 $ 

SET VSSFP TO VSSCA S 

IF VSSFB NOT VSSCA THEN GOTO SS5540 S 
IF V ASPI ( 0 , S4C0 ) 

THEN SET DFILE ( 0 , I SS A ) TO 1 

THEN SET DVSST TO 1E10D 

THEN RETURN $ "MSS50, MS855" 

IF VSSRT EG 0 THEN GOTO MSS60 $ 

SSTUPD OUTPUT DVTRB S "UPDATE SS TIME" 

IF VSSRT - DVTRB LTEG KSSRB THEN GOTO MSSfiO S 
SET V8STM TO VSSRT - DVTGB - KSSRB S 
SET DVSST TO VSSTM «■ DVTMR $ 

SET DGSSM TO « SS60 ' $ 

IF COMP DFIL3 THEN EGPOBS " RESCHED TIMER KNOT CODED)" 
RETURN $ ' ' MSS50,MSS55 ' ' 

IF VSSFB EG 0 AND BIT (7) ( VSSCA ) THEN GOTO MSS55 S 
IF FSSIO THEN "ISSUE SS PESET" S 
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\ 


SS008. 


COMMENT 

MSSISO. 

COMMENT 

COMMENT 


MSS70. 


SSTUPQ INPUT KSSB6, 'SS80' *"SCHED COMP STAGE/ADD'' 

SET TEMP TO 0 $ 

VARY I FROM 7 THRU 140 $ 

IE BIT(I) (V8SCA) NOT BIT(IMVSSFb) 

THEN SET TEMP TO TEMP * 1 $ 

ENO SS008 $ 

IF TEMP LT 2 THEN RETURN $ • ' MSS50 f MSS55 ' ' 

SET DVMC4 ( 0 , SSCB ) TO 1 $ 

IF FFHCH EO 'CHANA' 

THEN SET FFBCH TO * CH ANB ' 

THEN ''SET SS CHAN B PIT IN INTERNAL CONTROL REG'' 
THEN SET D V ICR C 0 , SSCB ) TO 1 S 
UTR30 % ''DELAY FOR TELEMETRY AS REQUIRED'' 

TELEMETER SS FEED BACK, VSSFB $ 

RETURN $ ' ' MSS50 , M S S 5 5 ' •' 

SET TEMP TO VSTG $ 

SET BIT(0)(TEMP) TO 1 $ 

IF FSSIO THEN ''ISSUE READ COMMAND FROM TEMP"* 

READ CLOCK INTO TEMP $ 

SSTUPQ INPUT KSSB2, 'SS70' $ "SCHEDULE READ RESET" 

SET TEMP TO 0 ♦ BITC130, 130) (TEMP) * 

SET HITCO, 130) (TEMP) TO BIT (2, 13HVSNA ) $ 

UTR30 $ "DELAY FOR TELEMETRY AS REQUIRED" 

TELEMETER STAGE/ADDRESS AND READ TIME, TEMP S 
IF DFAOQ NOT 'GAIN' "COMPRESS DATA BETWEEN STATIONS" 

THEN MPC80 INPUT DVDCT * MSKSSDCT "COMP TIME/TAG' ' 
THEN MPC80 INPUT MSKSSDCS + BIT CO, 23) (VSNA) $ 
"COMPRESS STAGE AND ADDRESS WITH TAG" 

IF VASPI (0.S4C0) 

THEN SET VASPI (0) TO 0 

THEN SET DFILE (D,CORD) TO 1 $ 

IF VSN A 1 EQ MSKSSHIG 

THEN SET DVMC7C0.HIG) TO 1 
THEN RETURN $ ' ' MSS60 ' ' 

IF V SNA 1 EQ MSKSSLOG 

THEN SET DVMC7C0,L0G) TO 1 
THEN RETURN $ ' ' MSS60 ' ' • 

IF VSNA1 EQ MSKSSOMG 

THEN SET D VMC7 ( 0 , OMG ) TO 1 
THEN RETURN $ • ' MSS60 ' ' 

IF VSNA1 NOT MSKSSSI VB THEN RETURN S ' ' MSS60 ' • 

IF FBRNI EQ 'FIRST' 

THEN DVMC5 C 0 , S4P II) TO 1 
THEN RETURN $ ' ' MSS60 ' ' 

SET DVMCfcCO, S8BRI ) TO 1 S 
RETURN $ • ' M3S60 ' ' 

IF FSSIO THEN "RESET READ COMMAND"* 

SSTUPQ INPUT KSSB3, 'SS05' S"SCHEDULE HUNG STAGE TEST" 
SS201 S "ADVANCE SS TABLE" 

SET VSSW TO KSSB1 S 
SET FHST TO 'TEST' S 

IF BIT (2,5) (VHSTW) EQ BIT (2,5) (VSTG) 

THEN SET FHST TO 'NOTEST' $ 

IF V3NA1 EQ MSKSSW VO 

THEN. SET DV ASW ( 0 , ECS 1 ) TO 0 
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THEN SET DFWV TO * OPEN ' 

THEN RETURN S • • MSS70 ' ' 

IF VSNA1 EQ MSKSSWVC 

THEN SET DVASW C 0 , ECS V ) TO 0 
THEN SET DFWV TO 'CLOSE' 

THEN RETURN S • • MSS70 • ' 

IF V SNA 1 EQ HSKSSSCC 

THEN SET DVDPM C 0, DIN9) TO 1 $ 

RETURN S • ' M8S70 ' ' 

MSS80, SET VSNA TO VSCCA $ 

IF FSSIO THEN ''ISSUE STAGE AND COMPLEMENTED ADDRESS' '$ 
SSTUPQ INPUT KS3B7, *SS55'$ "SCHEDULE READ COMMAND" 
COMMENT DELAY FOR DOM TELEMETRY $ 

COMMENT OUTPUT SS AND DO REGS VIA DOM TELEMETRY S 

RETURN S ' • MSS80 ' ' 

END-PROC MSSOO S 

PROCEDURE SS201 $ "SS TABLE ADVANCE ROUTINE" 

IF FTADV EQ 'NORMAL' 

THEN SET SST1PTR TO SST1PTR ♦ 1 
THEN GOTO SS009 $ 

SET S8T2PTR TO SST2PTR + 1 $ 

SS009, SS210 S "SET UP NEXT SWITCH SELECTOR" 

RETURN S ' ' SS20 1 • ' 

END-PROC SS201 S 

PROCEDURE SS210 S "SS SELECTION AND SETUP ROUTINE" 

IF FTADV EO ' NORMAL • THEN GOTO SS2020 S 

SS2160. IF SSTABLEC0,0)SST2PTR GTEQ 0 THEN GOTO SS2070S 
SET FCLS4 TO 'NOTINPROG' $ 

SET DVMC6C0.LUI) TO 0 $ 

SET DVMC7 C 0, T6D) TO 0 $ 

GOTO SS2090 $ 

SS2020. IF SSTABLEC0,0)SST1PTR GTEQ 0 THEN GOTO SS2030 S 
IF VASPICO, SPEC) 

THEN SET VASPICO) TO MSKSSS4C0 

THEN SET BIT (0,7) (DVASW(O) ) , BIT ( 9D , 17D) CDVASWCO) ) 

TO 0 

THEN SET SST1PTR TO CORAD CSST8IVB) 

THEN GOTO SS2020 S 
IF VASPI C0,CL3) 

THEN SET SST1PTR TO VSC30 
THEN SET VASPICO) TO VSC31 
THEN SET VATRR TO VSC32 
THEN GOTO SS2020 S 
IF VASPICO, CL1) 

THEN SET SST1PTR TO VSC10 
THEN SET VASPICO) TO VSC11 
THEN SET VATRR TO VSC12 
THEN GOTO SS2020 S 
SET VASPICO), VATRR TO 0 $ 

IF FT60P EQ • PASS 1 ' 

THEN SET FT60P TO ' PASS2 ' 

THEN SET 8ST1PTR TO CORAD CSSTTB5A) 

THEN GOTO SS2020 S 
SET S3T1PTR TO CORAD (SSTTB5B) $ 

GOTO SS2020 S 


- 256 - 



CMS-2 KERNEL 10 


SWITCH SELECTOR PROCESSING 


SS2030. IF FCLS4 EQ • NOTINPROG • THEN GOTO SS2040 S 

SS2070. IF SSTABLE(0,0)SST1PTR * DKRTCSEC ♦ VATRR - KSS500HS 

6TEQ SSTABLE(0,0)SST2PTR * DKRTCSEC + VATR4 
THEN SET FTADV TO • CL ASS4 * 

THEN SET VSSRT TO SST A BLE ( 0 , 0 ) SST2PTR * DKRTCSEC 

♦ VATR4 

THEN SET VSNA TO SSTABLE ( 0 , 1 ) SST2PTR 
THEN GOTO SS2050 S 
8S2090. SET FTADV TO 'NORMAL' S 

SS2040. SET VSSRT TO SST ABLE ( 0 , 0 ) SST 1 PTR * DKRTCSEC ♦ VATRR S 
SET VSNA TO SSTABLECO, 1)SST1PTR S 
SS2050. SET BIT (2,5) (VHSTW) TO BIT (0,5) (VSNA) $ 

RETURN $ ' ' SS2 1 0 ' » 

END-PROC SS210 $ 

PROCEDURE SSTUPD OUTPUT TIME $ • • SS TIME UPDATE ROUTINE'' 

COMMENT READ CLOCK INTO TEMP $ 

SET TEMP TO TEMP - DVRTC $ 

IF TEMP LT 0 THEN SET TEMP TO TEMP ♦ DKRTCOVF $ 

SET TIME, DVTRB TO DVTGB + DVTRR + TEMP , , 0 $ 

RETURN S ' 'SSTUPD' • . 

END-PROC SSTUPD S - 

PROCEDURE SSTUPQ INPUT BIAS, ID $ ' ' SS SCHEDULER'* 

COMMENT READ CLOCK INTO TEMP $ 

SET DGSSM TO 'ID' $ 

SET TEMP TO TEMP - DVRTC S 

IF TEMP LT 0 THEN SET TEMP TO TEMP ♦ DKRTCOVF $ 

SET DVTRB TO DVTGB ♦ DVTRR ♦ TEMP..0 $ 

SET VSSTM TO BIAS DVTRR ♦ TEMP , , 0 $ 

SET DVSST TO VSSTM ♦ DVTMR 

IF COMP DFIL3 THEN EGP08 $ ' 'RESCHEDULE T1CNOT CODED)" 
RETURN $ ' 'SSTUPQ' ' 

END-PROC SSTUPQ $ 

END-SYS-PROC MSSOO S 
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TA3KKEY SYS-PROC "ATM TASK KEYING ROUTINE" $ 

LOC-DD S 

VRBL PRIORITY I 10D S $ "TASK PRIORITY LEVEL" 

VRBL TSKPTR I 16D U $ "TASK POINTER (ADDRESS)" 

VRBL I I 10D S S "OVERFLOW TABLE CHAIN INDEX" 


VRBL J I 10D S S "OVERFLOW TABLE INDEX" 

COMMENT 

COMMENT THE PRIORITY CONTROL TABLE CONTAINS ONE ENTRY FOR $ 

COMMENT EACH PRIORITY LEVEL. EACH ENTRY CONSISTS OF FIVE S 

COMMENT ITEMS. $ 

COMMENT 1. LOCATION POINTER TO THE NEXT EXECUTABLE $ 

COMMENT INSTRUCTION OF THE TASK CURRENTLY ASSIGNED $ 

COMMENT TO THAT PRIORITY LEVEL OR ZERO IF NO TASK S 

COMMENT IS CURRENTLY ASSIGNED. S 

COMMENT 2. TASK REGISTER CONTENTS (INITIALLY ZERO). $ 

COMMENT 3. TASK REGISTER CONTENTS (INITIALLY ZERO). $ 

COMMENT 4. TASK REGISTER CONTENTS (INITIALLY ZERO). $ 

COMMENT 5. INDEX POINTER TO THE BEGINNING OF THE $ 

COMMENT PRIORITY OVERFLOW TABLE CHAIN FOR THAT S 

COMMENT PRIORITY LEVEL. A VALUE OF ZERO INDICATES $ 

COMMENT END OF CHAIN. $ 


TABLE ATMPCT V NONE 10D $ 

FIELD ATMTSKPTR I 16D U $ 
FIELD ATMTSKREG1 I 26D U $ 
FIELD ATMTSKREG2 I 26D U S 
FIELD ATMT3KREG3 I 26D U $ 
FIELD ATMOVFPTR I 16D U $ 
END-TABLE ATMPCT $ 


COMMENT $ 
COMMENT THE PRIORITY OVERFLOW TABLE IS USED FOR KEYING S 
COMMENT TASKS ON A PRIORITY LEVEL WHICH IS CURRENTLY S 
COMMENT ASSIGNED TO ANOTHER TASK. THE ENTRIES ARE NOT S 
COMMENT ALLOCATED TO A FIXED PRIORITY BUT ARE ASSIGNED $ 
COMMENT DYNAMICALLY AS REQUIRED, ALL OVERFLOW ENTRIES FOR S 
COMMENT EACH PRIORITY LEVEL ARE CHAINED TOGETHER SUCH THAT $ 
COMMENT THE TASKS CAN BE EXECUTED ON A FIRST-IN/FIRST-OUT S 
COMMENT BASIS. EACH ENTRY CONSISTS OF TWO ITEMS, $ 
COMMENT 1. INDEX POINTER TO THE NEXT ENTRY IN THE S 
COMMENT CHAIN. A VALUE OF ZERO INDICATES END OF $ 

comment chain. $ 

COMMENT 2. POINTER TO THE BEGINNING OF THE TASK FOR $ 
COMMENT THAT ENTRY, A VALUE OF ZERO INDICATES THATS 
COMMENT THE ENTRY IS NOT ASSIGNED TO ANY TASK. S 


TABLE ATMPOVFT V NONE 26D S 

FIELD ATMOVFPTR I 16D U $ 
FIELD ATMTSKPTR I 16D U S 
END-TABLE ATMPOVFT S 
END-LOC-DD $ 

PROCEDURE TASKKEY INPUT PRIORITY, TSKPTR S 


COMMENT S 
COMMENT INHIBIT ALL INTERRUPTS S 
COMMENT $ 
COMMENT IF THE REQUESTED PRIORITY LEVEL IS NOT CURRENTLY $ 
COMMENT ASSIGNED, INITIALIZE THE ENTRY FOR THIS TASK, S 
COMMENT S 
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COMMENT 

comment 

COMMENT 

COMMENT 


CHNSRCH. 


COMMENT 

COMMENT 

COMMENT 

COMMENT 

COMMENT 

SLTSRCH. 


IF ATMPCT(PRIORITY.ATMTSKPTK) EQ 0 

THEN SET ATMPCT (PRIORITY, ATMTSKPTR) TO TSKPTR 
THEN SET ATMPCT (PRIORITY, ATMTSKREOl), 

ATMPCT (PRIORITY, ATMTSKREG2) , 
ATMPCT(PRIORITY, ATMTSKREQ3) TO 0 
THEN GOTO FINI S 

OTHERWISE, SEARCH FOR THE END OF THE OVERFLOW 
POINTER CHAIN, 

SET I TO ATMPCT (PRIORITY, ATMOVFPTR) $ 

IF I EQ 0 THEN GOTO SLTSRCH S 

IF ATMPOVFT(I, ATMOVFPTR) NOT 0 

THEN SET I TO ATMPOVFT ( I , ATMOVFPTR) 

THEN GOTO CHNSRCH $ 


WHEN THE END OF THE OVERFLOW POINTER CHAIN HAS 
FOUND, SEARCH FOR AN EMPTY SLOT IN THE OVERFLOW 
TABLE. 


VARY J FROM 1 THRU 25D $ 

IF ATMPOVFT(J,ATMTSKPTR) EQ 0 THEN GOTO SLTFN 
END SLTSRCH $ 

STOP $ * ' HALT IF OVERFLOW TABLE IS FULL" 


COMMENT 

COMMENT ADD THE NEW ENTRY TO THE END OF THE OVERFLOW CHAIN 
COMMENT AND STORE THE TASK POINTER IN IT. 


COMMENT 

SLTFND. IF 1 EQ 0 

THEN SET ATMPCT(PRIORITY, ATMOVFPTR) TO J 
THEN GOTO AROUND S 
SET ATMPOVTd, ATMOVFPTR) TO J S 
AROUND. SET ATMPUVT ( J , ATMOVFPTR ) TO 0 $ 

SET ATMPOVTIJ, ATMTSKPTR) TO TSKPTR $ 

FINI, "RELEASE INTERRUPTS AS REQUIRED ' 1 $ 

return $ 

END-PROC TASKKEY $ 

END-SYS-PROC TASKKEY $ 


$ 
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